boa tarde

senhores

tenho uma planilha para cotações (segue em anexo) com formulários, estou tentando criar uma macro para isso, porem sem sucesso estou a procura a algum tempo tentei vários códigos, como sou iniciante em vba venho pedir a ajuda de vocês.

oque preciso é alimentar o banco de dados com as informações necessárias digitadas na planilha de cotação.
nessa planilha anexada só contem uma aba "cotações", porem preciso criar 10 abas e que alimente o mesmo banco de dados.
tentei alterar esse abaixo mas não consegui, entre vários outros.

desde já grato!

Dim vLinha As Integer
Dim vColACelulas As String
Dim vContinuar As Boolean

'Seleciona Plan1
Sheets("Plan1").Select
Range("A2").Select

'inicializando variáveis
vContinuar = True
vLinha = 2

'O loop por todos os valores de coluna A até uma célula em branco é encontrado ou o valor não faz
'combina com a célula valor de A2
While vContinuar = True

vLinha = vLinha + 1
vColACelulas = "A" & CStr(vLinha)

'encontrando uma célula em branco, não continua
If Len(Range(vColACelulas).Value) = 0 Then
vContinuar = False
End If

'A primeira ocorrência encontrada que não combinou com a célula valor de A2, não continua
If Range("A2").Value <> Range(vColACelulas).Value Then
vContinuar = False
End If

Wend

'Dados da cópia de colunas A - C
Range("A2:C" & CStr(vLinha - 1)).Select
Selection.Copy

'cola na planilha(Plan2) na célula (A1)
Sheets("Plan2").Select
Range("A1").Select
ActiveSheet.Paste

MsgBox "Dados copiados com sucesso", vbInformation, "Saberexcel - o site das macros"

End Sub