Далее собрал макрос который выделяет диапазон с последней пустой ячейки вверх.
[vba]Код
Sub SelectCellRange()
Dim strSelTop As String, strSelBottom As String
' Ïîëó÷åíèå àäðåñîâ íèæíåé è âåðõíåé ÿ÷ååê äèàïàçîíà äëÿ âûäåëåíèÿ
strSelBottom = ActiveCell.Address
strSelTop = Cells(4, ActiveCell.Column).Address
' Âûäåëÿåì âñå ÿ÷åéêè âûøå òåêóùåé (âìåñòå ñ òåêóùåé ÿ÷åéêîé)
Range(strSelTop & ":" & strSelBottom).Select
Selection.Copy
Range("A15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
[/vba]
и не могу соединить с кодом из 1-го сообщения.
Заранее спасибо!