copy to empty column starts with column E

[dragavs]

Good day to all,
im newbie on this vba and excel
i have this problem and search through the internet and try to compile but cant get fix the code the exact way i want


i like to paste a manually selected columns from sheet1 and paste to range E5 if not empty

an example is like this
i manually select a range of columns and if i press a command button it the range of column will be copied to sheet2 range E5 if not empty.

my code

Sub Button5_Click()
    Dim LastColumn As Integer
    Dim shFO, sh4 As Worksheet
    
    shFO = Worksheets("Final Output")
    sh4 = Worksheets("Sheet4")
    
    With shFO
        LastColumn = .Find(What:="*", After:=.Cells(5), Lookat:=xlPart, _
        LookIn:=xlFormulas, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, _
        MatchCase:=False).Column
        
        sh4.Activate
        Selection.Copy destination:=LastColumn
    End With
End Sub

[HaHoBe]

Hi, dragavs,

if you are working with Worksheets and Ranges/Cells you would need to use Set in order to build an object to these. I´m assuming you would like to add further information to the next available column:

Sub Button5_Click()
    Dim rngToCopy As Range
    Dim shFO As Worksheet
    
    Set shFO = Worksheets("Final Output")
    
    With shFO
      Set rngToCopy = .Cells(5, Columns.Count).End(xlToLeft).Offset(0, 1)
      Selection.Copy Destination:=rngToCopy
    End With
    
    Set rngToCopy = Nothing
    Set shFO = Nothing
End Sub

Ciao,
Holger

[dragavs]

thank you for the quick answer HaHoBe the code is perfect.

[dragavs]

final code

    Dim rngToCopy As Range
    Dim shFO As Worksheet
    
    Set shFO = Worksheets("Final Output")
    
    With shFO
      Set rngToCopy = .Cells(9, Columns.Count).End(xlToLeft).Offset(0, 1)
      Selection.Copy destination:=rngToCopy
      rngToCopy.Columns.Group
    End With
    
    Set rngToCopy = Nothing
    Set shFO = Nothing

i have this code and i like this to add a code that will group the rngToCopy