This is what I have so far:

[VBA]Dim totalrow, lastColumn As Long
Dim finalCell As Range

totalrow = Cells(65536, 1).End(xlUp).Offset(1, 0).Row
lastColumn = Cells(1, 100).End(xlToLeft).Column
finalCell = Range(totalrow, lastColumn)[/VBA]

it is giving me an error on the finalCell line.