Здравствуйте! Снова требуется Ваша помощь. В общем необходимо копировать данные ячейки в последнюю свободную ячекйу строки.
Вот, что у меня есть.
[vba]Код
Sub mCopyData()
Dim mRng As Range
Set mRng = Range([C1], [C1]) '
If Application.CountA(mRng) = 0 Then
MsgBox "Внесите данные"
Exit Sub
Else
mRng.Copy Sheets("Лист1"). _
Cells(5, Columns.Count) _
.End(xlToRight).Offset(1)
End If
End Sub
[/vba]
Но данные переносятся не в последнюю свободную ячейку строки, а вообще в последнюю ячейку листа - в самый самый конец.
Не могу понять, как этого избежать. Спасибо!