How to stop this from looping

[crazybuckeyeguy]

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

 

[Akuini]

You don’t need loop to the job.
Assuming sheet Data is active sheet, try this:

---

Please use Code Tags when posting a code.

[B][COLOR=Royalblue]Sub[/COLOR][/B] Copydata[B]()[/B]
[B][COLOR=Royalblue]Dim[/COLOR][/B] lr [B][COLOR=Royalblue]As[/COLOR][/B] [B][COLOR=Royalblue]Long[/COLOR][/B][B],[/B] r [B][COLOR=Royalblue]As[/COLOR][/B] Range
   
   [B][COLOR=Royalblue]Set[/COLOR][/B] r [B]=[/B] Range[B]([/B][B][COLOR=brown]"A12:M"[/COLOR][/B] [B]&[/B] Cells[B]([/B]Rows.count[B],[/B] [B][COLOR=brown]"A"[/COLOR][/B][B]).[/B][B][COLOR=Royalblue]End[/COLOR][/B][B]([/B]xlUp[B]).[/B]row[B])[/B]
   Sheets[B]([/B][B][COLOR=brown]"Check In"[/COLOR][/B][B]).[/B]Range[B]([/B][B][COLOR=brown]"B3"[/COLOR][/B][B]).[/B]Resize[B]([/B]r.Rows.count[B],[/B] r.Columns.count[B]).[/B]Value [B]=[/B] r.Value
 
[B][COLOR=Royalblue]End[/COLOR][/B] [B][COLOR=Royalblue]Sub[/COLOR][/B]

---