макросом переноса строки из одного листа в другой

[AlexLin]

Добрый время суток!
У меня возникла проблема с макросом переноса строки из одного листа в другой.
А именно макрос работает переносит с "Ввод результатов испытаний" интервал С1:С48 в данные но переносит в столбик, а мне надо в строчку. В "данные" с А4:AP4 и следующие данные с А5:AP5.
?Подскажите пожалуйста как написать макрос.

Sub uuu()
With Sheets("Ввод результатов испытаний").Range("C1:C48")
Sheets("данные").Range("A4").Resize (.Rows.Count, .Columns.Count) = .Value

lr = .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(lr, 1) = Date Then
.Cells(lr, 1).Resize(1, 3) = arr
Else: .Cells(lr + 1, 1).Offset(1, 0).Resize(1, 3) = arr
End If
MsgBox "Сделано"
End With
End Sub

[kuklp]

Кросс:
http://www.planetaexcel.ru/forum/ind...lista-v-drugoy