Worksheets("sheet1").Rows(i).Copy
ActiveSheet.Paste Destination:=Worksheets("sheet2").Rows(i) 

Option Explicit

Private Sub CommandButton1_Click()
Dim Textbox1 As Integer

MsgBox Textbox1
End Sub


Private Sub Textbox1_Change()
End Sub

Private Sub UserForm_Click()
End Sub

...
If checkcolumn Then 'если стоит чекбокс - то проверяются 3 нижестоящие условия. Если Нет- то проверку пропускаем.
        If r1.Column <> 5 Then MsgBox "error r1", vbCritical
          Exit Sub 
        End If
        If r2.Column <> 6 Then MsgBox "error r2", vbCritical
          Exit Sub 
        End If
        If r3.Column <> 7 Then MsgBox "error r13", vbCritical
           Exit Sub 
        End If       
End If
'если соблюдены все 3 условия- выполняется код ниже. если любое из 3 не соблюдено- показываем ошибку и выходим. 
...

Range("A1:B44")

Sub ttt()

Dim sh As Worksheet, wb As Workbook
Set wb = ActiveWorkbook

For Each sh In wb.Worksheets
   If cell.Value(1, 1) = "del" Then
 Columns("B:B").Select
    Selection.Cut   
   End If
Next sh

End Sub

Sub Test()
    Dim iCell As Range, iColumn As Variant
    For Each iColumn In Array("State", "Customer name", "Gallons", "Supplier", "Carrier")
        Set iCell = ActiveSheet.UsedRange.Rows(1).Find(iColumn, , xlValues, xlWhole, , , False)
        If Not iCell Is Nothing Then iCell.EntireColumn.Delete
    Next
End Sub