Iurigdn

Tenho uma planilha com um formulário, para preencher as informações. Preciso que ao clicar em Inserir, as informações sejam colocadas na Plan1 e Plan2. Alguém sabe me dizer como faz? O Código que estou usando é o seguinte: Private Sub CommandButton1_Click() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("Plan1") 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, 9).Value = Me.TextBox5.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.TextBox1.SetFocus End Sub Pasta1-copy.xls