Excel VB Macro Help

[MacroMan00]

I have the following code but when I run it I get an error that says, "Run-time error '1004': Application-defined or object-defined error.

Private Sub CommandButton1_Click()
erow = Sheets("sheet1").Range("a" & Rows.Count).End(x1Up).Row
    Range("a" & erow + 1) = TextBox1.Value
    Range("b" & erow + 1) = TextBox2.Value
    Range("c" & erow + 1) = TextBox3.Value
    Range("d" & erow + 1) = TextBox4.Value
    Range("e" & erow + 1) = TextBox5.Value
TextBox1.Value = ""
    TextBox2.Value = ""
    TextBox3.Value = ""
    TextBox4.Value = ""
    TextBox5.Value = ""
End Sub

Please help, thank you.

[p45cal]

x1Up
Should be
xlup

In upper case that's from X1UP to XLUP.

[Aussiebear]

Welcome to VBAX MacroMan00. When supplying code to the forum, please wrap them with code tags. See the first line in my signature for a hint