Alguem sabe me dizer porque esse botão de entrada não funciona?

Apresenta erro 1004

Private Sub btnentra_Click()
Dim iLin As Long
Dim ws As Worksheet
Set ws = Worksheets("plan1")

ws.Cells(lin, 1).Value = Me.Textrelatorio.Value
ws.Cells(lin, 2).Value = Me.Textrdsrdi.Value
ws.Cells(lin, 3).Value = Me.Textincidente.Value
ws.Cells(lin, 4).Value = Me.Texttecnico.Value
ws.Cells(lin, 5).Value = Me.Textservicos.Value
ws.Cells(lin, 6).Value = Me.TextDATA.Value
ws.Cells(lin, 7).Value = Me.Texthoraini.Value
ws.Cells(lin, 8).Value = Me.Texthoraterm.Value
ws.Cells(lin, 9).Value = Me.Textassinatura.Value
ws.Cells(lin, 10).Value = Me.TextCONFERIDO.Value
ws.Cells(lin, 11).Value = Me.Textentrega.Value
ws.Cells(lin, 12).Value = Me.Textrecebido.Value
ws.Columns("A:M").AutoFit

Me.Textrelatorio.Value = ""
Me.Textrdsrdi.Value = ""
Me.Textincidente.Value = ""
Me.Texttecnico.Value = ""
Me.Textservicos.Value = ""
Me.TextDATA.Value = ""
Me.Texthoraini.Value = ""
Me.Texthoraterm.Value = ""
Me.Textassinatura.Value = ""
Me.TextCONFERIDO.Value = ""
Me.Textentrega.Value = ""
Me.Textrecebido.Value = ""

Me.Textrelatorio.SetFocus


End Sub