Dim lngLastRow, lngLastCol as Long 'Номер последней строки на листе lngLastRow = ActiveSheet.UsedRange.Rows.Count 'Номер последнего столбца на листе lngLastCol = ActiveSheet.UsedRange.Columns.Count
