各位老师帮忙看下这个怎么解决啊

qaz10121

现在的代码只能定位到E列最后一个单元格，只有I18单元格有数据时才能定位到I18，怎么设置定位在I18单元格没有数据的时候也能定位到I列18行（行需要变化）
Sub ???淢?????()
On Error GoTo 100
      Dim es As Range, a%
      If Sheets("?????????????").[j:j].Find([c3]) = [c3] Then
      MsgBox "??????????!"
     Else
100:
  Set es = Cells.Find("*", , xlFormulas, , , xlPrevious)
  a = Application.CountA(Sheets("?????????????").[c:c])
  If es.Row = 5 Then MsgBox "????д??????????": End
  Range([a6], es).Copy Sheets("?????????????").Cells(a + 1, 1)
  Sheets("?????????????").Cells(a + 1, "j").Resize(es.Row - 5) = [c3]
  Sheets("?????????????").Cells(a + 1, "k").Resize(es.Row - 5) = Now()
  MsgBox "??????"
  End If
End Sub

鄂龙蒙

楼主想定位在有数据行的“I”列的那个单元格吗？