该代码给出了“运行时错误” 1004”应用程序的定义

Question

请问我对VBA真的很陌生。但是下面的代码给出了运行时错误。我只需要花一小时的时间即可。

ActiveSheet.Columns("H").Insert Shift:=xlToRight
Range("h1").Value = "HOUR"

Range("H2").Formula = "=HOUR(G2)"
Range("H2:H" & Cells(Rows.Count, 1).End(x1UP).Row).FillDown
Range("H2:H" & Cells(Rows.Count, 1).End(x1UP).Row).NumberFormat = "General"