vba:excel中判斷另壹表格中數據是否符合條件並增添數據

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