重复复制一个单行范围，带偏移量

Sub CopyRow()
    
    Const SRC_ROW As String = "A1:E1"
    Const DST_FIRST_CELL As String = "B2"
    Const DST_ROW_OFFSET As Long = 6
    Const DST_COPY_COUNT As Long = 3 ' 166
    
    Dim ws As Worksheet: Set ws = ActiveSheet ' improve!
    
    Dim srg As Range: Set srg = ws.Range(SRC_ROW)
    Dim dCell As Range: Set dCell = ws.Range(DST_FIRST_CELL)
    
    Dim n As Long
    
    For n = 1 To DST_COPY_COUNT
        srg.Copy dCell
        Set dCell = dCell.Offset(DST_ROW_OFFSET)
    Next n
  
End Sub

当你执行For... Next循环时，你可以指定变量在两个循环之间的增量。默认值为1，但如果希望循环跳到下一行的第6行，只需指定For i = a to b Step 6即可

Sub CopyData()
  ' Define the range of data that you want to copy
  Dim dataRange As Range
  Set dataRange = Range("A1:E1")

  ' Define the starting row and the interval at which you want to copy data
  Dim startRow As Integer
  Dim interval As Integer
  startRow = 2
  interval = 6

  ' Loop through each row
  For i = startRow To 1000 Step interval
      ' Copy the data from the data range to the current row
      dataRange.Copy Cells(i, 2)
  Next i
End Sub