Sub Macro1()
Set Destn = Sheets("Sheet2").Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)
Sheets("Sheet1").Range("AV1:AV46").Copy
Destn.PasteSpecial Paste:=xlPasteValues
Destn.PasteSpecial Paste:=xlPasteFormats
If Destn.Parent.Cells(1, 1) = "" Then Application.OnTime Now + TimeValue("00:00:05"), "Macro1"
End Sub