I am trying to copy a range from 'Sheet1' and paste the data into 'Sheet2' but into every other row.
This code works for the copy and paste, but how can I adapt it so it pastes to every other cell down? I think it may be to do with an 'offset' but can't figure out how to code it.
Thanks.
VBA Code:
Sub testcopy()
'
' testcopy Macro
Sheets("Sheet1").Select
Range("I3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet2").Select
Range("B30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
This code works for the copy and paste, but how can I adapt it so it pastes to every other cell down? I think it may be to do with an 'offset' but can't figure out how to code it.
Thanks.