Olá Pessoal!

Conto com a ajuda de você para resolver um código.

Seguinte estou elaborando uma planilhas para cadastro de Produtos/Fornecedores/Clientes/Orçamentos, ainda está na fase de elaboração e todos os comandos (Excluir/Alterar) para inserção de um novo produto estão funcionando perfeitamente, exceto o cadastro em si. Quando eu clico em cadastrar ele não entende que tem que copiar os dados para a planilha de base. Já refiz os códigos e até agora nada, poderiam me ajudar?
Segue abaixo o código e se ajudar tem a planilha em anexo também.

Private Sub btCadastrar_Click()

Dim vcod        As Long
Dim vdescricao  As String
Dim vunidVenda  As String
Dim vvalorvenda As Currency
Dim FR          As frmProd
Dim vvlbusca    As String
Dim vvlchave    As String

Set W = Sheets("Produtos")
Set FR = frmProd

W.Select
Set UltCel = W.Cells(W.Rows.Count, 2).End(xlUp).Offset(1, 0)


'Cadastra o novo produto
'-----------------------------------------------------------------------------

UltCel.Select

'Gravando os valores nas células

With ActiveCell
    .Offset(0, 1).Value = vcod
    .Value = vdescricao
    .Offset(0, 1).Value = vunidVenda
    .Offset(0, 2).Value = vvalorvenda
End With


ActiveCell.Offset(0, -1).Resize(1, 4).Select
Selection.BorderAround LineStyle:=xlContinuous
Selection.Borders(xlInsideVertical).LineStyle = xlContinuous

ActiveCell.Offset(0, 4).HorizontalAlignment = xlCenter
ActiveCell.Offset(0, 4).Interior.Color = RGB(184, 204, 228)

ActiveCell.Offset(1, 0).Select

Unload frmProd
frmProd.Show


End Sub