VBA Code Help Needed to Copy Specific Columns Minus Headers in Source Sheet and Paste to Specific columns in Target Sheets. Please.

[JPatty]

I have a work book that has multiple sheets with columns that don't change, but the number of cells with data in each column does. So I would need to copy down to first blank cell in that column. Sheet1 is the source data, I need to copy everything from A2, D2, E2, and F2 down to the first blank cell and paste to Sheet2 starting in A2, F2, G2, and H2, then copy starting at A2, G2, H2, and I2 in Sheet1 down to first blank cell and paste in Sheet3 starting in A2, F2, G2, and H2, then copy starting at A2, J2, K2, and L2 in Sheet1 down to first blank cell and paste in Sheet4 starting in A2, F2, G2, and H2, and so on. Coping sets of data from Sheet1 pasting
in target sheet then moving down by 3 cells in Sheet1 to next target sheet, and so on.

 

[mumps]

It is hard to work with pictures. It would be easier to help if you could use the XL2BB add-in (icon in the menu) to attach a screenshot (not a picture) of Sheet1. Alternately, you could upload a copy of your file to a free site such as www.box.com or www.dropbox.com. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here. Explain in detail what you want to do referring to specific cells, rows, columns and sheets using a few examples from your data (de-sensitized if necessary).

 

[JPatty]

Located below are the Xl2bb mini sheets associated with the initial post.

Copy and Paste Different Coulmns to Different Worksheets.xlsx
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P
1	Start	End	Move	Customer City	Customer State	Customer Zip	Destination1 City	Destination1 State	Destination1 Zip	Destination2 City	Destination2 State	Destination2 Zip	Destination3 City	Destination3 State	Destination3 Zip
2	1/1/2023	1/1/2023		New York	New York	12345	Chicago	Illinios	12345	Madison	Wisconson	12345	Billings	Montana	12345
3				Atlantic City	New Jersey	12345	Jacksonville	Florida	12345	Atlanta	Georgia	12345	Dallas	Texas	12345
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sheet1

Copy and Paste Different Coulmns to Different Worksheets.xlsx
	A	B	C	D	E	F	G	H	I	J	K
1	Effective	Not Effective	Service	Match	Zone	Origin City	Origin State	Origin Zip	Time	Rate
2
3
4
5
6
7
Sheet2

Copy and Paste Different Coulmns to Different Worksheets.xlsx
	A	B	C	D	E	F	G	H	I	J	K
1	Effective	Not Effective	Service	Match	Zone	Origin City	Origin State	Origin Zip	Time	Rate
2
3
4
5
6
7
Sheet3

Copy and Paste Different Coulmns to Different Worksheets.xlsx
	A	B	C	D	E	F	G	H	I	J	K
1	Effective	Not Effective	Service	Match	Zone	Origin City	Origin State	Origin Zip	Time	Rate
2
3
4
5
6
7
Sheet4

Copy and Paste Different Coulmns to Different Worksheets.xlsx
	A	B	C	D	E	F	G	H	I	J	K
1	Effective	Not Effective	Service	Match	Zone	Origin City	Origin State	Origin Zip	Time	Rate
2
3
4
5
6
7
Sheet5

 

[mumps]

Try:

Sub CopyData()
    Application.ScreenUpdating = False
    Dim LastRow As Long, srcWS As Worksheet, x As Long, y As Long: y = 4
    Set srcWS = Sheets("Sheet1")
    LastRow = srcWS.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    For x = 2 To 5
        With srcWS
            .Range("A2").Copy Sheets(x).Range("A2")
            .Cells(2, y).Resize(LastRow - 1, 3).Copy Sheets(x).Range("F2")
            y = y + 3
        End With
    Next x
    Application.ScreenUpdating = True
End Sub