Sub Auto_Open()

Call CopyValues

End Sub

Sub CopyValues()
Dim RowNo As Long
RowNo = Sheets(4).Cells(Rows.Count, 4).End(xlUp).Row + 1

    Sheets(4).Cells(RowNo, 2) = Sheets(1).Cells(14, 2)
    Sheets(4).Cells(RowNo, 3) = Sheets(1).Cells(14, 3)
    Sheets(4).Cells(RowNo, 4) = Sheets(1).Cells(14, 4)
    Sheets(4).Cells(RowNo, 5) = Sheets(1).Cells(15, 2)
    Sheets(4).Cells(RowNo, 6) = Sheets(1).Cells(15, 3)
    Sheets(4).Cells(RowNo, 7) = Sheets(1).Cells(15, 4)
    Sheets(4).Cells(RowNo, 8) = Sheets(1).Cells(16, 2)
    Sheets(4).Cells(RowNo, 9) = Sheets(1).Cells(16, 3)
    Sheets(4).Cells(RowNo, 10) = Sheets(1).Cells(16, 4)
    Sheets(4).Cells(RowNo, 11) = Sheets(1).Cells(17, 2)

Application.OnTime Now + TimeValue("00:01:00"), "CopyValues"

End Sub