copy to sheet2 from sheet1

copy_sheet2sheet.vba

Sub copy_sheet2sheet()
'
' copy_sheet2sheet Macro
' copy to sheet2 from sheet1
'
    Application.Goto Reference:="copy_sheet2sheet"
    
    Dim i As Integer
    Dim j As Integer
    Dim col_start As Integer
    Dim row_start As Integer
    Dim col_end As Integer
    Dim row_end As Integer
    
    col_start = 1 'minimum of column
    row start = 1 'minimum of row
    col_end = 10 'maximum of column
    row_end = 20 'maximum of row
    
    For i = col_start To col_end
        For j = row_start To row_end
                Worksheets("Sheet2").Cells(i, j) = Worksheets("sheet1").Cells(i, j)
        Next j
    Next i
    
End Sub