Copy multiple batches of data using VBA

I do not know what is the purpose of

YouLikeToPasteTo = "A1"

With .Range(YouLikeToPasteTo)

Means you are copying the selected range in A1.
You are also copying 2 rows 1 (A1:C2 ) Only.

I do not know what are trying to do, but a simplified version of your code.

Sub copy()

Sheets("Sheet1").Range("A2:C" & 1 + Sheets("Sheet1").Range("E1").Value).copy

Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial (xlPasteValues)

Application.CutCopyMode = False

End Sub

Your post contradicts your example workbook. In your post you say Range "E1" but in your workbook E1 is blank. You show J1 in your code, but J1 is blank. I will assume that you meant Sheet1 Range F1.

Sub RumMe()

Sheets("Sheet1").Range("A2:C" & Sheets("Sheet1").Range("F1").Value + 1).Copy _
   Destination:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

End Sub

Edit: Darn it AB33, beat me again

Originally Posted by stnkynts

Your post contradicts your example workbook. In your post you say Range "E1" but in your workbook E1 is blank. You show J1 in your code, but J1 is blank. I will assume that you meant Sheet1 Range F1.

Sub RumMe()

Sheets("Sheet1").Range("A2:C" & Sheets("Sheet1").Range("F1").Value + 1).Copy _
   Destination:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

End Sub

Edit: Darn it AB33, beat me again

Sorry think I may have accidentally attached the wrong workbook! Sorted now though thanks anyway.

That's perfect thanks I got it working with

Sub copy()

Sheets("Sheet1").Range("A2:C" & 1 + Sheets("Sheet1").Range("E1").Value).copy

Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial (xlPasteValues)

Sheets("Sheet1").Range("F2:H" & 1 + Sheets("Sheet1").Range("J1").Value).copy

Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial (xlPasteValues)

Application.CutCopyMode = False

End Sub

stnkynts,
Nowadays, I am trying to play as poacher, not a mid-fielder,despite a football game is lost and won on midfield.