Здравствуйте помогите написать вышеупомянутый макрос, мои попытки сделать это не работают:
Код
Sub 111() Dim m%
m = lngLastRow = Sheets("Лист1").UsedRange.Rows.Count
Sheets("Лист1").Range [m + 1].Value = Range("B4").Value
End Sub
или еще:
Код
Sub 222()
Dim lngLastRow As Long
lngLastRow = Sheets("Лист1").UsedRange.Rows.Count
Sheets("Лист1").Range(lngLastRow + 1).Value = Range("B4").Value
End Sub
думаю ошибки в формулировках: Range(lngLastRow + 1) и .Range [m + 1], не знаю как правильно прописать... да и вообщем не уверен что макрос рабочий...) прошу помощи)