A simple code to find the letter of the last column of a row. For instance, you want to know for the row 1, what is the last column. If you want to know the number of columns, read my other article Count the number of rows and columns using a macro in an excel report.

 

When I use the macro ?

To know the last column of a row.

 

How to create the macro ?

Read How to create, edit, hide and select a macro in an excel report

 

How to create the button to associate it with the macro ?

Read How to create a button and associated it to a macro in an excel report

 

How is the macro ?

Copy the code below and paste it into your macro. You will see my comments in green if exist so follow the help to adapt to your need.

Sub test()
Dim lastCol
' change A1 by the cell reference of a row
lastCol = Split(Columns(Range("A1").End(xlToRight).Column).Address(, False), ":")(1)
MsgBox lastCol
End Sub

Example of how to use it:

Sub test()
Dim lastCol
' change A1 by the cell reference of a row
' to use sheet name, change Range("A1") by Workskeets("Sheet1").Range("A1")
lastCol = Split(Columns(Range("A1").End(xlToRight).Column).Address(, False), ":")(1)
' copy cell N2 and paste to sheet2 on cell A1
' change Sheet2 by your sheet
Range(lastCol & "2").Copy Worksheets("Sheet2").Range("A1")
' copy cell A1:N2 and paste to sheet3 from cell A1
' change Sheet3 by your sheet
Range("A1:" & lastCol & "2").Copy Worksheets("Sheet3").Range("A1")
End Sub

If you want to know the last row number of a column, read Find the last row of a column and the last column of a row using a macro in an excel report.