Hi
So I am trying to move data from one spreadsheet into another; I'm new to VBA and I need some help writing the code for this macro.
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+Shift+A
'
Sheets("Canada").Select
Range("F851:F887").Select
Selection.Copy
Sheets("Alberta").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
What I need is to loop this, and the next time it selects from "Canada" the range changes so that it selects the
next 37 entries (for example the next one would be F888-F924) and so on...until it hits an empty cell.
I also need the macro to paste the next selection (F888-F924) into the sheet "Alberta" as normal except one row below the row it previously pasted data into.
Any help would be greatly appreciated!!
So I am trying to move data from one spreadsheet into another; I'm new to VBA and I need some help writing the code for this macro.
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+Shift+A
'
Sheets("Canada").Select
Range("F851:F887").Select
Selection.Copy
Sheets("Alberta").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
What I need is to loop this, and the next time it selects from "Canada" the range changes so that it selects the
next 37 entries (for example the next one would be F888-F924) and so on...until it hits an empty cell.
I also need the macro to paste the next selection (F888-F924) into the sheet "Alberta" as normal except one row below the row it previously pasted data into.
Any help would be greatly appreciated!!