Найти последнюю строку и вставить данные

Question

Невозможно вставить информацию в первую пустую ячейку

Пробовал много разных вариантов, найденных в сети, не могу понять, подходит ли это для моей ситуации.

Sub cop()

Dim LastRow As Long
Dim x As Range

Sheets("1").Select
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.copy
Sheets("Data Validation").Select
Range("A2").Select
ActiveSheet.Paste

'finds the last row in the Holdings report worksheet
LastRow = ActiveSheet.Cells.find(What:="*", After:=ActiveSheet.Cells(1, 
1), LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, 
MatchCase:=False).Row


x = (LastRow + 1)

Sheets("2").Select
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.copy
Sheets("Data Validation").Select
Range(x, 1).Select
ActiveSheet.Paste


End Sub

Я хочу скопироватьиз листа '2' и поместите данные в столбец A на листе проверки данных, в первую пустую строку (под данными, которые ранее были вставлены туда из листа '1'.