So after some googling, I just created a user form with the below code.
Private Sub cmdProcess_Click()
Dim rw As Long 'next available row
With Sheets("Sheet2")
'get the next avialable row in Sheet1
rw = .Range("A" & .Rows.Count).End(xlUp).Row + 1
'put the text box values in this row
.Range("A" & rw).Value = txtDate.Value
.Range("B" & rw).Value = txtID.Value
.Range("C" & rw).Value = txtType.Value
.Range("D" & rw).Value = txtError.Value
'copy the formula from the previous row
'.Range("C" & rw - 1 & ":G" & rw - 1).Copy
'.Range("C" & rw & ":G" & rw).PasteSpecial Paste:=xlPasteFormulas
'Application.CutCopyMode = False
End With
'================================
'OPTIONAL - clear the text boxes
'================================
'txtName.Value = ""
'txtAge.Value = ""
'==========================
'OPTIONAL - unload the form
'==========================
'unload me
End Sub
[All Solved Now]
Bookmarks