Vba vraag opslaan regels

[Ruud700]

Hoi Helpers
ik wil 2 regels opslaan maar er wordt telkens de laatste regel overschreven plus een nieuwen bij geschreven
wat zie ik over het hoofd
al vast bedankt
groet ruud

With Worksheets("ik")

            If Me.TextBox1.Value = True Or Me.TextBox2.Value = True Then
                .Range("B" & .Rows.Count).End(xlUp).Offset(1).Resize(, 9).Value = _
                Array("ik", CDate(TextBox1.Value), Me.TextBox3.Text, Me.TextBox4.Text, "", "", CDbl(Me.TextBox2.Value), "", Me.TextBox4.Text)
                
                .Range("B" & .Rows.Count).End(xlUp).Offset(1).Resize(, 9).Value = _
                Array("", CDate(TextBox1.Value), Me.TextBox4.Text, Me.TextBox3.Text, "", "", CDbl(Me.TextBox2.Value), "", Me.TextBox4.Text)
            End If
            
       End With

 

[Timshel]

Even zonder oplossing denk ik dat het hieraan ligt:

With Worksheets("ik")
    If Me.TextBox1.Value = True Or Me.TextBox2.Value = True Then
        .Range("B" & .Rows.Count).End(xlUp).Offset(1).Resize(, 9).Value = _
            Array("ik", CDate(TextBox1.Value), Me.TextBox3.Text, Me.TextBox4.Text, "", "", CDbl(Me.TextBox2.Value), "", Me.TextBox4.Text)
        .Range("B" & .Rows.Count).End(xlUp).Offset(1).Resize(, 9).Value = _
            Array([B][COLOR=#FF0000]""[/COLOR][/B], CDate(TextBox1.Value), Me.TextBox4.Text, Me.TextBox3.Text, "", "", CDbl(Me.TextBox2.Value), "", Me.TextBox4.Text)
    End If
End With

Omdat deze cel leeg is 'ziet' Excel de laatste rij niet bij het evalueren van .Range("B" & .Rows.Count).End(xlUp)

 

[Ruud700]

hoi tim
dat was hem bedankt