issue with VBA OFFSET

[kelly mort]

Hello everybody,
I have this code I am trying to use to send data to my worksheet. But it is not doing what I want it to do for me. When I click the add button, it sends the data to the last row in excel. Meanwhile I wants it to send the data to the last empty row or cell. I need help to resolve this. Thanks
Kelly

Private Sub CmdAdd_Click()
Dim Drng As Range
    Set Drng = Sheet1.Range("B6")
    Drng.End(xlDown).Offset(0, 0).Value = Drng.End(xlDown).Offset(-1, 0).Value + 1
    Drng.End(xlDown).Offset(0, 1).Value = Me.Rw2.Value
    Drng.End(xlDown).Offset(0, 2).Value = Me.Rw3.Value
    Drng.End(xlDown).Offset(0, 3).Value = Me.Rw4.Value
    Drng.End(xlDown).Offset(0, 4).Value = Me.Rw5.Value
    Drng.End(xlDown).Offset(0, 5).Value = Me.Rw6.Value
    Drng.End(xlDown).Offset(0, 6).Value = Me.Rw7.Value
    Drng.End(xlDown).Offset(0, 7).Value = Me.Rw8.Value
    Drng.End(xlDown).Offset(0, 8).Value = Me.Rw9.Value
    Drng.End(xlDown).Offset(0, 9).Value = Me.Rw10.Value
    Drng.End(xlDown).Offset(0, 10).Value = Me.Rw11.Value
    Drng.End(xlDown).Offset(0, 11).Value = Me.Rw12.Value
End Sub

 

[kelly mort]

Okay it worked. I messed something up the first time. Just found out

 

[kelly mort]

Thank you very much.

One more issue, can i loop through this ?

 

[kelly mort]

Thank you very much.

One more issue, can i loop through this ?

Just resolved the request

Dim Drng As Range, lrRng As Range
Dim I As Long

    With Sheet1
        Set Drng = .Range("B7")
        Set lrRng = .Cells(.Rows.Count, Drng.Column).End(xlUp).Offset(1, 0)
        lrRng.Value = Application.Max(Drng.EntireColumn) + 1
        For I = 1 To 11
            lrRng.Offset(0, I).Value = Me.Controls("Rw" & I + 1).Value
        Next I
    End With