iLastRow = Worksheets(“Sheet1″).Cells(Rows.Count, iColumnToSearchIn).End(xlUp).Row
iLastCol = Worksheets(“Sheet1″).Cells(iRowToSearchIn, Columns.Count).End(xlToLeft).Column
iLastRow = Worksheets(“Sheet1″).Cells(Rows.Count, iColumnToSearchIn).End(xlUp).Row
iLastCol = Worksheets(“Sheet1″).Cells(iRowToSearchIn, Columns.Count).End(xlToLeft).Column