Salvar em linhas incrementais vba

[Lucas Bittencourt Guedes 0]

Bom dia, sou novo no fórum e novo também na programação em VBA, e estou com a seguinte duvida. Estou criando um programa para cotagem de peças fabricadas na empresa, e criei um botão do tipo SALVAR, para conseguir incluir várias peças na cotagem. O programa em sí aparenta ser simples, mas conforme explicado, não tenho conhecimento do assunto.

 

Sub Inserir()
'
' Inserir Macro
' inserir Elemento de cotagem
n = 22
'
'
    Selection.ClearContents
    Range("L22:M22").Select
    Range("M22").Activate
    Selection.ClearContents
    Range("C13").Select
    Selection.Copy
    Range("K22").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("L22").Select
    Application.CutCopyMode = False
    Range("C22").Select
    Selection.Copy
    Application.CutCopyMode = False
    Selection.Copy
    Range("L22").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("M22").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("E23:F23").Select
    Selection.Copy
    Range("M22").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H23").Select
    Application.CutCopyMode = False
    n = n + 1
End Sub

 

Quero que as células salvem de linha em linha, ou seja, a cada uma peça salva, automaticamente a próxima salva na linha abaixo.São 3 itens que preciso salvar, C13, C22 e E23 (mesclado com célula f23).

Já encontrei algo parecido no fórum, porém não consegui resolver meus problemas por lá.

 

Grato pela atenção.

[CasaDoHardware 130]

ta confuso disponibilize um arquivo modelo

[DJunqueira 177]

Procure evitar uso de .Select q atrasa a macro.