Controlede estoque

Boa noite .

- O primeiro produto não é acrescentado na linha 2, mas sim na linha 3;
- Novos produto acrescentados são inseridas na ordem errada, são acrescentados na linha 2 ao invés de ser na linha 3 assim por diante.

Sub CadastroProduto()
'
' CadastroProduto Macro
'

'
   Range("D3,D5,D7,D9").Select
   Range("D9").Activate
   Selection.Copy
   Sheets("Produtos").Select
   Range("A2").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=True
   Application.CutCopyMode = False
   With Selection
       .HorizontalAlignment = xlCenter
       .VerticalAlignment = xlBottom
       .WrapText = False
       .Orientation = 0
       .AddIndent = False
       .IndentLevel = 0
       .ShrinkToFit = False
       .ReadingOrder = xlContext
       .MergeCells = False
   End With
   Range("A2:D200").Select
   ActiveWindow.LargeScroll Down:=-8
   Selection.Cut Destination:=Range("A3:D201")
   Range("A3:D201").Select
   Sheets("Cadastro").Select
   Range("D3").Select
End Sub

Desde já agradeço o apoio!!!!