Find last column with Data

[olympiac]

I need to find the last column with data in a spreradsheet and add 2 new columns on the right considering that the headings will start from row 3

How can I modify this code to get the result?

Sub FindLastColumn()
Dim LastColumn As Integer
If WorksheetFunction.CountA(Cells) > 0 Then
'Search for any entry, by searching backwards by Columns.
LastColumn = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column

End If
End Sub

 

[JackDanIce]

Tres bien!