VBA Help Please

[How_Do_I]

Hello, I'm trying to copy the last column on Sheet 1 and paste the data on to Sheet 2. I've started with this code but I can't get what I need. Can anyone help please?

Sub LastColumn()
Worksheets("Sheet1").Activate
Range("B2").End(xlToRight).Select
ActiveCell.End(xlDown).Copy
Worksheets("Sheet2").Activate
Range("H2").PasteSpecial
End Sub

 

[Scott T]

I am assuming you want to copy the entire column to the first blank column in Sheet2

Sub copylc()
Dim lc As Long
Dim lc2 As Long
lc = Sheets("Sheet1").Cells(1, Columns.Count).End(xlToLeft).Column
lc2 = Sheets("Sheet2").Cells(1, Columns.Count).End(xlToLeft).Column
Sheets("Sheet1").Columns(lc).Copy Destination:=Sheets("Sheet2").Cells(1, lc2 + 1)

End Sub

 

[Fluff]

How about

Sub LastColumn()
   With Worksheets("Sheet1")
      .Cells(2, Columns.Count).End(xlToLeft).EntireColumn.Copy
         Worksheets("Sheet2").Range ("H1")
   End With
End Sub

 

[How_Do_I]

Hello Scott,

No, I need to paste in to H2

 

[How_Do_I]

Hello Fluff,

I couldn't get your code to run, it doesn't like this line:

Worksheets("Sheet2").Range ("H1")
​

 

[Fluff]

The underscore got stripped out

Sub LastColumn()
   With Worksheets("Sheet1")
      .Cells(2, Columns.Count).End(xlToLeft).EntireColumn.Copy[COLOR=#ff0000] _[/COLOR]
         Worksheets("Sheet2").Range("H1")
   End With
End Sub

 

[How_Do_I]

Oh, the last column on Sheet 1 is data placed there by a formula so it is causing as issue please Fluff?

 

[Fluff]

OK, how about

Sub LastColumn()
   With Worksheets("Sheet1")
       Worksheets("Sheet2").Range("H1").EntireColumn.Value = .Cells(2, Columns.Count).End(xlToLeft).EntireColumn.Value
   End With
End Sub

 

[How_Do_I]

Thanks for your help Fluff, that last one is working...

 

[Fluff]

Glad we could help & thanks for the feedback