crazybuckeyeguy
New Member
- Joined
- Apr 15, 2017
- Messages
- 49
when I run this command I assume its trying to past every cell into B3. How do I just make it copy and past from row 12 to the last row then paste?
Sub Copydata()
Sheets("Data").Activate
Dim lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
For i = lr To 2 Step -1
Range("A12:M" & i).Select
Selection.Copy
Sheets("Check In").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
End Sub
Sub Copydata()
Sheets("Data").Activate
Dim lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
For i = lr To 2 Step -1
Range("A12:M" & i).Select
Selection.Copy
Sheets("Check In").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
End Sub