Select Range using variables

Hi,

I have set variables to identify the first row, last row, and last column. when I try to select the range it gives me an error.

Sub SortData()
'Dim RowTitle As Integer
'Dim LastRow As Integer
Dim LastCol As String


RowTitle = ActiveSheet.Range("A1")
LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 1).Row
LastCol = ActiveSheet.Cells(RowTitle, Columns.Count).End(xlToLeft).Offset(1, 0).Column


Range((ActiveSheet.Cells(RowTitle, 1)), (ActiveSheet.Cells(LastRow, LastCol))).Select
End Sub

Thanks
R