VBA code require to copy paste data

[Navi_G]

Dear All Experts,
I have a data which i want to copy paste in other sheet for which i make following VBA code but its not working plz provide help.
VBA Code:

Sub Rangeo()

Dim r1 As Range

For y = 1 To 12
For x = y To 16 Step 4



    Set r1 = Range(Cells(1, y), Cells(11, x))
    r1.Select
Next x
Next y

Range("A1").Select
End Sub

Actual Data:

Line #	Plan	SAM	QTY	Line #	Plan	SAM	QTY	Line #	Plan	SAM	QTY
1	15054	15.2	150	2	15066	44	1100	3	15071	34	555
1	15055	46	157	2	15067	46	157	3	15072	46	157
1	15056	44	88	2	15068	44	88	3	15073	44	88
1	15057	51	277	2	15069	51	277	3	15074	51	277
1	15058	55	2554	2	15070	55	2554	3	15075	55	2554
1	15059	44	414	2	15071	55	414	3	15076	55	414
1	15060	14	447	2	15072	14	447	3	15077	14	447
1	15061	41	77	2	15073	41	77	3	15078	41	77
1	15062	22	145	2	15074	22	145	3	15079	22	145
1	15063	34	144	2	15075	34	144	3	15080	34	144
1	15064	44	144	2	15076	44	144	3	15081	44	144
1	15065	44	55	2	15077	44	55	3	15082	44	55

Needed output:

Line #	Plan	SAM	QTY
1	15054	15.2	150
1	15055	46	157
1	15056	44	88
1	15057	51	277
1	15058	55	2554
1	15059	44	414
1	15060	14	447
1	15061	41	77
1	15062	22	145
1	15063	34	144
1	15064	44	144
1	15065	44	55
Line #	Plan	SAM	QTY
2	15066	44	1100
2	15067	46	157
2	15068	44	88
2	15069	51	277
2	15070	55	2554
2	15071	55	414
2	15072	14	447
2	15073	41	77
2	15074	22	145
2	15075	34	144
2	15076	44	144
2	15077	44	55
Line #	Plan	SAM	QTY
3	15071	34	555
3	15072	46	157
3	15073	44	88
3	15074	51	277
3	15075	55	2554
3	15076	55	414
3	15077	14	447
3	15078	41	77
3	15079	22	145
3	15080	34	144
3	15081	44	144
3	15082	44	55

I have large files of this type of data given data is only a smaller piece.

 

[My Aswer Is This]

For me to help I need specific details in words.
You have showed us a script that does not work.
And two images of your data.
And no other details

I need something like this

Search column G of sheet named "Alpha" for "John" and when found copy that row to sheet named "Bravo"

 

[maabadi]

Are you Should have First row after end of each line No. or don't need it.
if you don't need it & First sheet name is Sheet1 & Other is Sheet2 Try this:

Sub TransferData()
Dim i As Long, j As Long, Lr1 As Long, Lc1 As Long, Sh1 As Worksheet, Sh2 As Worksheet
Dim Lr2 As Long, Lc2 As Long
Set Sh1 = Sheets("Sheet1")
Set Sh2 = Sheets("Sheet2")
Lc1 = Sh1.Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To Lc1 Step 4
Lr1 = Sh1.Cells(Rows.Count, i).End(xlUp).Row
Lr2 = Sh2.Cells(Rows.Count, 1).End(xlUp).Row
If Lr2 = 1 Then
Sh2.Range("A1:D" & Lr1).Value = Range(Sh1.Cells(1, i), Sh1.Cells(Lr1, i + 3)).Value
Else
Sh2.Range("A" & Lr2 + 1 & ":D" & Lr2 + Lr1 - 1).Value = Range(Sh1.Cells(2, i), Sh1.Cells(Lr1, i + 3)).Value
End If
Next i
End Sub

 

[Navi_G]

Are you Should have First row after end of each line No. or don't need it.
if you don't need it & First sheet name is Sheet1 & Other is Sheet2 Try this:

Sub TransferData()
Dim i As Long, j As Long, Lr1 As Long, Lc1 As Long, Sh1 As Worksheet, Sh2 As Worksheet
Dim Lr2 As Long, Lc2 As Long
Set Sh1 = Sheets("Sheet1")
Set Sh2 = Sheets("Sheet2")
Lc1 = Sh1.Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To Lc1 Step 4
Lr1 = Sh1.Cells(Rows.Count, i).End(xlUp).Row
Lr2 = Sh2.Cells(Rows.Count, 1).End(xlUp).Row
If Lr2 = 1 Then
Sh2.Range("A1:D" & Lr1).Value = Range(Sh1.Cells(1, i), Sh1.Cells(Lr1, i + 3)).Value
Else
Sh2.Range("A" & Lr2 + 1 & ":D" & Lr2 + Lr1 - 1).Value = Range(Sh1.Cells(2, i), Sh1.Cells(Lr1, i + 3)).Value
End If
Next i
End Sub

Dear Sir,

may be u r missing source formatting please provide with source formatting code thanks.

Navi _ G

 

[Marc L]

​

Hi, as you forgot to well describe your source data address and the place of the expected result, could be easier with an attachment …​

 

[Navi_G]

Hi, as you forgot to well describe your source data address and the place of the expected result, could be easier with an attachment …​

How Attach File tell me.

 

[maabadi]

What is Source formatting. I told if you want also row 1 for all transfer or not And you don't answer?
Upload your example file with XL2bb ADDIN (preferable) or upload at free hosting site e.g. www.dropbox.com or GoogleDrive or OneDrive and Insert Link here