Hello to all. If anyone could help I would be much appricative!!
I would like for this macro to continue to copy and past data from one work sheet into another, but I am not sure how looping works.
I put together a quick macro of what I basically trying to do. A2 will change to A3, A4, A5 and so on butB1:AP1 will remain the same, but I only want it to copy and past over the info so long as the column in A has data.
Sub testestest()
'
' testestest Macro
'
'
Sheets("Unconverted").Select
Range("A2").Select
Selection.Copy
Sheets("Converted").Select
Range("A2:A42").Select
ActiveSheet.Paste
Sheets("Unconverted").Select
Range("B1:AP1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Converted").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveWindow.SmallScroll Down:=20
End Sub
I would like for this macro to continue to copy and past data from one work sheet into another, but I am not sure how looping works.
I put together a quick macro of what I basically trying to do. A2 will change to A3, A4, A5 and so on butB1:AP1 will remain the same, but I only want it to copy and past over the info so long as the column in A has data.
Sub testestest()
'
' testestest Macro
'
'
Sheets("Unconverted").Select
Range("A2").Select
Selection.Copy
Sheets("Converted").Select
Range("A2:A42").Select
ActiveSheet.Paste
Sheets("Unconverted").Select
Range("B1:AP1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Converted").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveWindow.SmallScroll Down:=20
End Sub
