Bom dia,
Estou preparando uma planilha de cadastro de cliente da empresa. Porém, está dando o erro 9 no botão de Inserir.

Set ws = Worksheets("Folha")<----------------------------- quando aperto detalhar, uma seta amarela indica este item.
Obs. Minha tabela possui 20colunas/ campos:
1-CÓDIGO > 2-NOME / RAZÃO SOCIAL > 3- E-MAIL > 4-CPF/ CNPJ > 5-RG / Ins. Estadual> 6-TELEFONE>
7-CELULAR> 8-ENDEREÇO> 9 -N> 10-BAIRRO> 11-REFERÊNCIA> 12-CEP> 13-CIDADE> 14-UF>
15-O QUE DESEJA> 16-TIPO DE OBRA> 17-CONTATO NA OBRA> 18-DATA VISITA> 19-HORÁRIO
20-OBSERVAÇÃO>

SEGUE DESCRIÇÃO:

ActiveWorkbook.Save

End Sub

Private Sub CommandButton2_Click()
Unload Me

End Sub

Private Sub CommandButton3_Click()

Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Folha")


iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

'copia os dados para as celulas
ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.TextBox2.Value
ws.Cells(iRow, 3).Value = Me.TextBox3.Value
ws.Cells(iRow, 4).Value = Me.TextBox4.Value
ws.Cells(iRow, 5).Value = Me.TextBox5.Value
ws.Cells(iRow, 6).Value = Me.TextBox6.Value
ws.Cells(iRow, 7).Value = Me.TextBox7.Value
ws.Cells(iRow, 8).Value = Me.TextBox8.Value
ws.Cells(iRow, 9).Value = Me.TextBox8.Value
ws.Cells(iRow, 10).Value = Me.TextBox10.Value
ws.Cells(iRow, 11).Value = Me.TextBox11.Value
ws.Cells(iRow, 12).Value = Me.TextBox12.Value
ws.Cells(iRow, 13).Value = Me.TextBox13.Value
ws.Cells(iRow, 14).Value = Me.TextBox14.Value
ws.Cells(iRow, 15).Value = Me.TextBox15.Value
ws.Cells(iRow, 16).Value = Me.TextBox16.Value
ws.Cells(iRow, 17).Value = Me.TextBox17.Value
ws.Cells(iRow, 18).Value = Me.TextBox18.Value
ws.Cells(iRow, 19).Value = Me.TextBox19.Value
ws.Cells(iRow, 20).Value = Me.TextBox19.Value


'Limpa os campos TextBox para inserir novos dados
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""
Me.TextBox8.Value = ""
Me.TextBox9.Value = ""
Me.TextBox10.Value = ""
Me.TextBox11.Value = ""
Me.TextBox12.Value = ""
Me.TextBox13.Value = ""
Me.TextBox14.Value = ""
Me.TextBox15.Value = ""
Me.TextBox16.Value = ""
Me.TextBox17.Value = ""
Me.TextBox18.Value = ""
Me.TextBox19.Value = ""
Me.TextBox20.Value = ""

Me.TextBox1.SetFocus

End Sub

ALGUÉM ME AJUDA, POR FAVOR?!