Копирование последней записи в столбце в назначенную ячейку

[Watcher_1]

Вот

Sub m2()
    For j = 6 To 41 Step 5 'from B to AO
        DoEvents
        myR = Cells(Rows.Count, j).End(xlUp).Row
        For i = j To j - 4 Step -1
            Cells(2, i) = Cells(myR, j)
            myR = myR - 1
        Next
    Next
End Sub

[sasha555]

Всем огромное спасибо! Watcher_1 Вы сделали последний код то что надо!СУПЕР.