The below macro always returns zero instead of the last column number with any data in it.
Edit : Basically I want to Copy last used column of sheet(XYZ) to sheet (ABC)
Code:
Sub Findcolumn()
Dim Lastcolumn As Range, ws As Worksheet
With ThisWorkbook.Worksheets("AB")
Set Lastcolumn = .Cells.Find(What:="*", After:=.Cells(1, 1), LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False)
End With
End Sub
Edit : Basically I want to Copy last used column of sheet(XYZ) to sheet (ABC)
Last edited: