Ошибка копирования/вставки Специальная вставка

Question

Я пытаюсь переписать чью-то программу, но я не знаком с VBA. Я пробовал много разных диапазонов с .End(x1Up) и (x1Down). Я понимаю, что Up - лучший вариант, но он просто вставляет его в одну и ту же строку каждый раз и не опускается до следующего. Вот мой код (многие попытки были закомментирована):

Sub Save_History() 

Sheets("Simple Calculation").Select 

Range("A10:J10").Select 

Selection.Copy 

    'Sheets("Media Data History").Select 

    'Range("A65536").End(xlup).Offset(1,0) 
    'If Range("A1") <> "" Then 
    'Range("A1").End(xlUp).Offset(1, 0).Select 
    'End If 
    ' Range("A1").End(xlUp).Select 

    'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 
End Sub 

Answer 1

Понял !!

Sub Save_History() 

Sheets("Simple Calculation").Select 

Range("A10:J10").Select 

Selection.Copy 

    Sheets("Media Data History").Select 

       Range("A" & Rows.Count).End(xlUp).Offset(1).Select 

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 
End Sub 

Answer 2

Это должно работать, но я призываю вас, чтобы взглянуть на THIS Post

Sub Save_History() 

    Sheets("Simple Calculation").Select 

    Range("A10:J10").Select 

    Selection.Copy 

    Sheets("Media Data History").Select 

    Range("A65536").End(xlup).Offset(1,0).Select 

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 

End Sub