Excel VBA运行时错误1004“；应用程序定义或对象定义错误”；为“查找空列”插入代码时

我还在学习制作简单的VBA excel。我在尝试输入下面的代码时遇到了一个错误1004“应用程序定义或对象定义错误”。有人能帮助我或建议正确的代码来解决这个问题吗

非常感谢，我希望有人能帮助我

Dim iColumn As Long
Dim WtrData As Worksheets
Set Wsh = Worksheets("WtrData")
iColumn = Wsh.Cells(0, Columns.Count).End(xlUp).Offset(0, 4).Column `**Yellow mark at here when Debug**`

Wsh.Cells(-58, iColumn).Value = Me.Intake.Value
Wsh.Cells(-56, iColumn).Value = Me.ServisOut.Value
Wsh.Cells(-54, iColumn).Value = Me.ProsesOut.Value
Wsh.Cells(-52, iColumn).Value = Me.Regenerasi.Value
Wsh.Cells(-50, iColumn).Value = Me.ServisTank.Value
Wsh.Cells(-48, iColumn).Value = Me.Brewhouse.Value
Wsh.Cells(-46, iColumn).Value = Me.Wetmill.Value
Wsh.Cells(-44, iColumn).Value = Me.Filtration.Value
Wsh.Cells(-42, iColumn).Value = Me.Filtrox.Value
Wsh.Cells(-40, iColumn).Value = Me.TankFarm.Value
Wsh.Cells(-38, iColumn).Value = Me.CIP.Value
Wsh.Cells(-36, iColumn).Value = Me.Yeast.Value
Wsh.Cells(-34, iColumn).Value = Me.Boiler.Value
Wsh.Cells(-32, iColumn).Value = Me.AC.Value
Wsh.Cells(-30, iColumn).Value = Me.CO.Value
Wsh.Cells(-28, iColumn).Value = Me.Mycom.Value
Wsh.Cells(-26, iColumn).Value = Me.Packaging.Value
Wsh.Cells(-24, iColumn).Value = Me.Lab.Value
Wsh.Cells(-21, iColumn).Value = Me.WWTPToilet.Value
Wsh.Cells(-18, iColumn).Value = Me.AdmBuilding.Value
Wsh.Cells(-15, iColumn).Value = Me.Amenities.Value
Wsh.Cells(-12, iColumn).Value = Me.Masjid.Value
Wsh.Cells(-6, iColumn).Value = Me.Hydrant.Value
Wsh.Cells(-3, iColumn).Value = Me.Garden.Value

Call MsgBox("Data Berhasil Disimpan", vbInformation, "Input Data")

---

如果您想在第6行中找到第一个空列，您应该使用如下内容

lColumn=wsh.Cells（6，Columns.Count）。End（xlToLeft）。Column+1

iColumn=Wsh.Cells（0

…没有行

0

。此外，没有行号为负数的单元格，因此类似于

Wsh.Cells（-58

的任何内容都没有意义。感谢您的帮助，但仍然存在错误：（我下面有我的excel格式的图片。也许你可以帮我找到正确的代码，非常感谢@BigBenI非常抱歉@BigBen仍然使用堆栈溢出混淆。这是我的excel格式，如果我想在白单元格中输入数据，有什么建议我可以使用什么代码吗？谢谢你可以从找到最后一列开始更正如贴出的答案所示。非常感谢您的帮助