Hi folks

I have the following code...

Private Sub CommandButton1_Click()

Dim rRange1, rRange2 As Range

Set rRange1 = Worksheets("PL").Range("E100").End(xlUp).Offset(1, 0)
Set rRange2 = Worksheets("PL").Range("E100").End(xlUp).Offset(1, 1)

If CheckBox1.Value = True Then

    rRange1.Value = CheckBox1.Caption
    rRange2.Value = TextBox1.Value
        
End If

If CheckBox2.Value = True Then

    rRange1.Value = CheckBox2.Caption
    rRange2.Value = TextBox2.Value

End If
End Sub
I've set the rRange values as i dont want to keep typing it in, as there are a few checkboxes to go through. however when the code runs it overtypes everything in the first row.

I thought using the END(XLUP).OFFSET part would do what it normally does, but the range set seems to be ignoring this.

Any ideas???

Thanks