Sub abesi()

    Dim lastRow As Integer
    Dim lastColumn As Integer

        lastRow = ActiveSheet.Range("A1").End(xlDown).Row
        lastColumn = ActiveSheet.Range("A1").End(xlToRight).Column



End Sub