For Nextを使って表をコピー

この表を赤い罫線内にコピーする

    Dim lngMaxRow As Long
    Dim lngMaxCol As Long
    
    Dim i As Integer
    Dim j As Integer

    '表内最大行を取得
    lngMaxRow = lngGetMaxRow(ActiveSheet)
    
    '表内最大列を取得
    lngMaxCol = lngGetMaxCol(ActiveSheet)
    
    
    For i = 1 To lngMaxRow  '最大行まで繰り返す
    
        For j = 1 To lngMaxCol  '最大列まで繰り返す
        
            '5列先に1セルずつコピーする
            ActiveSheet.Cells(i, j + 5).Value = ActiveSheet.Cells(i, j).Value
            
        Next j
        
    Next i

【結果】