Макросы Exel

[Максикок]

Создание на листе, ука-занном пользователем, таблицы методом копирования таблицы текущего листа с заменой значений всех чисел на их квадраты. Сгенерировать таблицу из 3 столбцов (количество строк указывает пользователь), причем значением каждой ячейки третьего слева столбца является сумма значений ячеек таблицы слева соответствующей строки.
помогите пожалуйста
Private Sub CommandButton2_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Set msh = ActiveSheet
msh.UsedRange.Copy
Set CurSheet = ActiveWorkbook.Worksheets(ComboBox1 .Text)
CurSheet.Range("A1").PasteSpecial
For i = 0 To msh.UsedRange.Coiumns.Count
For j = 0 To msh.UsedRange.Rows.Count
k = CurSheet.Cells(i, j)
k = k * k
Cell = CurSheet.Cells(i, j)

Next j
Next i
End Sub
по первому заданию вот ето получилось,но неправильно работает пока тчо

[doober]

Если так попробовать

Private Sub CommandButton2_Click()
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Set msh = ActiveSheet
    lLastCol = msh.Range("iv1").End(xlToLeft).Column
    lLastRowMY = msh.Cells(msh.Rows.Count, 1).End(xlUp).Row
    Set CurSheet = ActiveWorkbook.Worksheets(ComboBox1.Text)
    msh.Range(msh.Cells(1, 1), msh.Cells(lLastRowMY, lLastCol)).Copy CurSheet.Range("A1")
    For Each cell In CurSheet.Range(CurSheet.Cells(1, 1), CurSheet.Cells(lLastRowMY, lLastCol))
        cell.Value = cell.Value ^ 2
    Next
End Sub

[Максикок]

Спасибо большое,все работает.
Только можете пояснить что означают параметры
iv1,xlUp,lLastRowMY, lLastCol,

[doober]

lLastCol = msh.Range("iv1").End(xlToLeft).Column -это номер столбца последней заполненной ячейки в первой строке смотрим справа наслево
lLastRowMY = msh.Cells(msh.Rows.Count, 1).End(xlUp).Row-номер последней не пустой строки снизу в первом столбце.Смотрим снизу вверх

xlToLeft,xlDown ,xlToRight,t xlUp константы.
Одно из значений XlDirection, указывающее направление, в котором нужно искать последнюю ячейку.