Save old data when web query refreshes

Try something like:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LC as Long
LC = Cells(1, Columns.Count).End(xlToLeft).Column
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        Application.EnableEvents = False
        Range("A1:A10").Copy Cells(1, LC + 1)
        Application.EnableEvents = True
    End If
End Sub