Copy Columns from one sheet to another using macro/formula

[jarrodexcel]

Hey guys,

As the title says, i have two sheets named A and B. I import excel data from a report into sheet A with columns going from a - z, what i am trying to do is set up a formula or macro on sheet B that will automatically fill data from specific columns in sheet A to sheet B. IE Sheet A columns a,c,d,f,t,s,z will automatically fill over into sheet B.

Any help would be massively appreciated ! thank you

Jarrod

 

[Candyman8019]

Try something like this:

Sub Replicate()
Dim lastrow As Long
lastrow = Sheets("A").Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row

Sheets("A").Range("A1:A" & lastrow).Copy Sheets("B").Range("A1")
Sheets("A").Range("C1:C" & lastrow).Copy Sheets("B").Range("C1")
Sheets("A").Range("D1:D" & lastrow).Copy Sheets("B").Range("D1")
Sheets("A").Range("F1:F" & lastrow).Copy Sheets("B").Range("F1")
Sheets("A").Range("T1:T" & lastrow).Copy Sheets("B").Range("T1")
Sheets("A").Range("S1:S" & lastrow).Copy Sheets("B").Range("S1")
Sheets("A").Range("Z1:Z" & lastrow).Copy Sheets("B").Range("Z1")

End Sub

 

[jarrodexcel]

Try something like this:

Sub Replicate()
Dim lastrow As Long
lastrow = Sheets("A").Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row

Sheets("A").Range("A1:A" & lastrow).Copy Sheets("B").Range("A1")
Sheets("A").Range("C1:C" & lastrow).Copy Sheets("B").Range("C1")
Sheets("A").Range("D1:D" & lastrow).Copy Sheets("B").Range("D1")
Sheets("A").Range("F1:F" & lastrow).Copy Sheets("B").Range("F1")
Sheets("A").Range("T1:T" & lastrow).Copy Sheets("B").Range("T1")
Sheets("A").Range("S1:S" & lastrow).Copy Sheets("B").Range("S1")
Sheets("A").Range("Z1:Z" & lastrow).Copy Sheets("B").Range("Z1")

End Sub

Perfect! worked an absolute treat ! thank you

 

[Candyman8019]

Happy to help.