nikitan95,
[vba]Код
Sub zapis()
Application.ScreenUpdating = 0
last_ = Sheets("Учет").Cells(Rows.Count, 1).End(xlUp).Row + 1
For i_ = 1 To 19
Sheets("Учет").Cells(last_, i_) = Sheets("Бланк").Cells(i_ + 3, 2).Text 'если хотите копировать отображаемый текст, то так и надо писать
Next
Sheets("Бланк").Select ' т.к. запуск макроса производится с листа "Бланк", то данная строка лишняя
Sheets("Бланк").Range("b4").Select 'т.к. макрос находится в модуле листа "Учет", то указание листа обязательно
Application.ScreenUpdating = 1
End Sub
[/vba]