vba:excel中判断另一表格中数据是否符合条件并增添数据

Question

sheet1中数据：
A B C
1 19
2 14
3 9
sheet2 中数据：
A B C
1 12
2 14
3 9
4 18
判定sheet1中a1是否大于sheet2中A列最大值，如果大于，则在sheet2中A列最后一行后面追加此数据，如何用vba写出来

Answer 1

Sub Trans()

If Worksheet("SHeet1").Range("A1") > Application.WorksheetFunction.Max(Worksheet("sheet2").Range("A:A")) Then
Worksheet("Sheet2").Range("A65536").End(xlUp).Offset(1).Value = Worksheet("SHeet1").Range("A1")
End If

End Sub