Hello,
I know nothing about VBA and I used the "record macro" feature in excel to get the following macro:
Sub Macro2()
'
'
' Keyboard Shortcut: Ctrl+m
'
Range("A28:A35").Select
Selection.Copy
Range("C1").Select
Selection.End(xlDown).Select
Range("C5").Select
ActiveWindow.SmallScroll Down:=-3
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Selection.End(xlToLeft).Select
Selection.End(xlToRight).Select
Application.CutCopyMode = False
Selection.Copy
Cells.Find(What:=" Thompson John L", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Application.Run "'noteholder list.xls'!Macro2"
End Sub
Instead of going down the list and copying the names & addresses over - it just does the one name.
Range("A28:A35").Select - This should be selecting the active cell down to the end.
Range("C5").Select - This should be selecting the next empty cell in column "C"
Cells.Find(What:=" Thompson John L", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate - This should be what just was pasted in the last "C" column cell.
I hope this is clearer than mud.
I really would like some help