Dim A
Dim M
Dim F
For i = 11 To 16
A.Value = Me("ListBox" & i).List
Next
If Application.CountIf(Range("A39:A45"), "=" & A) = 0 Then
Range("A45").End(xlUp).Offset(1, 0) = A
End If
For i = 27 To 34
M = Me("ListBox" & i).List
Next
If Application.CountIf(Range("A49:A83"), "=" & M) = 0 Then
Range("A45").End(xlUp).Offset(1, 0) = M
End If
For i = 17 To 26
F = Me("ListBox" & i).List
Next
If Application.CountIf(Range("A86:A128"), "=" & F) = 0 Then
Range("A128").End(xlUp).Offset(1, 0) = F
End If