Help editing next row with userform

[FindingMyself]

So here is my code,


Private Sub CommandButton1_Click()
Sheets("PM Checklist").Range("A2").End(xlDown).Offset(1, 0).Select
ActiveCell.Value = cboDay.Text & cboMonth.Text & cboYear.Text
Sheets("PM Checklist").Range("B2").End(xlDown).Offset(1, 0).Select
ActiveCell.Value = cboPMType.Text
Sheets("PM Checklist").Range("C2").End(xlDown).Offset(1, 0).Select
ActiveCell.Value = cboEquipment.Text
Sheets("PM Checklist").Range("D2").End(xlDown).Offset(1, 0).Select
ActiveCell.Value = txtSpecs.Text
Sheets("PM Checklist").Range("E2").End(xlDown).Offset(1, 0).Select
ActiveCell.Value = txtValue.Text & cboUnits.Text
End Sub


What I need to do is have my command button fill in a row of values with the values from my various dropbox and textbox and then move to the next row. I'm getting an error code with the above though

Here's a picture if it will help.

 

[Weaver]

Welcome to the board.

I think it would also have helped if you had told us specifically what the error code was.

 

[FindingMyself]

Welcome to the board.

I think it would also have helped if you had told us specifically what the error code was.

Thanks for the welcome

I get a 'Run-time error 1004: Application-defined or object-defined error' every time I run the userform and click the command button.

 

[littleiitin]

Try Below code

Private Sub CommandButton1_Click()
    Dim rngLastCell         As Range
    With ThisWorkbook.Worksheets("PM Checklist")
        Set rngLastCell = .Range("A" & Rows.Count).End(xlUp)
        rngLastCell.Offset(1, 0).Value = cboDay.Text & cboMonth.Text & cboYear.Text
        rngLastCell.Offset(1, 1).Value = cboPMType.Text
        rngLastCell.Offset(1, 2).Value = cboEquipment.Text
        rngLastCell.Offset(1, 3).Value = txtSpecs.Text
        rngLastCell.Offset(1, 4).Value = txtValue.Text & cboUnits.Text
    
    End With
    
End Sub

 

[FindingMyself]

Try Below code

Private Sub CommandButton1_Click()
    Dim rngLastCell         As Range
    With ThisWorkbook.Worksheets("PM Checklist")
        Set rngLastCell = .Range("A" & Rows.Count).End(xlUp)
        rngLastCell.Offset(1, 0).Value = cboDay.Text & cboMonth.Text & cboYear.Text
        rngLastCell.Offset(1, 1).Value = cboPMType.Text
        rngLastCell.Offset(1, 2).Value = cboEquipment.Text
        rngLastCell.Offset(1, 3).Value = txtSpecs.Text
        rngLastCell.Offset(1, 4).Value = txtValue.Text & cboUnits.Text
    
    End With
    
End Sub

It worked!
You've just saved me, you don't know how grateful I am.