Snasui Excel Forum

Code: Select all

Private Sub cmdAdd_Click()
    Dim wks As Worksheet
    Dim AddNew As Range
    Dim i As Integer, j As Integer
    Set wks = Sheet3
    
    Set AddNew = wks.Range("A65356").End(xlUp).Offset(4, 0)
    AddNew.Offset(0, 0).Value = A1.Text
    
    For i = 1 To 4
        For j = 0 To 3
        
            AddNew.Offset(i, j).Value = TextBox1.Text
            
        Next j
    Next i
    
End Sub