在Excel中將數據自動填充到最后一列的宏？

Question

我有一個電子表格，並且有一個宏，該宏每個月通過移動一些數據並清除一些數據來重置數據，這也刪除了某些列中的自動求和。 我需要重新輸入這些總和，我相信自動填充功能是實現此目的的最佳方法。 但是，我有很多不同的工作表，並且自動求和永遠不在同一行上。 下面是我到目前為止的宏。 在它旁邊調試箭頭的線。 上面的宏將我帶到需要自動填充的正確單元格，我只是不確定如何使該自動填充宏不存在於特定行和相對位置。 任何幫助深表感謝。

  Sub Reset_Each_Spare()
      Range("E16:F5000").Select
      Selection.Copy
      Range("P16").Select
      Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
      Range("I16:J5000").Select
      Selection.Copy
      Range("R16").Select
      Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
      Range("L16:M5000").Select
      Selection.Copy
      Range("T16").Select
      Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
      Application.CutCopyMode = False
      Range("D16:D5000").Select
      Selection.ClearContents
      Range("H16:H5000").Select
      Selection.ClearContents
      Range("K16:K5000").Select
      Selection.ClearContents
      Cells.Find(What:="Total", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False).Activate
      ActiveCell.Offset(0, 1).Select
      >>>Selection.AutoFill Destination:=Range("C:U"), Type:=xlFillDefault
      Range("A1").Select

結束子

Answer 1

我回答了我自己的問題，感謝所有花時間研究我的問題的人。 我只是用下面的代碼行替換了用>>>標記的上面的行。

  Selection.AutoFill Destination:=ActiveCell.Range("A1:S1"), Type:=xlFillDefault