Hilfe bei Makro

[crywolf66]

Hallo Leute folgende Situation:Ich habe ein Kaufvertrag indem folgende Sachen eingetragen werden.
Diese Werte werden dann auf ein Neues Blatt mit dem Namen Artikel per Makro übertragen.
soweit so gut aber ich habe auf dem Blatt Artikel an den Zeilen Differenz,Verkaufspreis(Netto) und Differenzsteuer Formeln hinterlegt.
Mein Makro fängt jetzt also an die Daten in Spalte 1000 einzutragen weil obendran ja Formeln sind.
Könnt ihr mir helfen wie ich das Makro ändern muss damit ich die Werte von B-H übertragen bekomme und bei der nächsten Eingabe vortlaufend in der nächten Zeile die neuen eingaben reinbekomme? Meine Formeln solten erhalten bleiben.
Ich hoffe ich hab es verständlich erklärt und danke schon mal für eure Hilfe. 

Artikelliste:

Artikelnummer   Artikel / Hersteller   Model   Serialnummer   Besonderheiten des Artikel   Zustand   Sonstiges/Zubehör    Ankaufpreis     Verkaufpreis(Brutto)     Differenz     Verkaupreis(Netto)    Differenzsteuer vom Differenzbetrag
1   efaf   faf   dsv   dsvvsd   dsvs   dvy    50,00 €     80,00 €    30,00 €   67,23 €   5,70 €
2   aaa   bbb   dsv   ccc   ddd   eee    100,00 €     150,00 €    50,00 €   126,05 €   9,50 €



Kaufvertrag Daten:
            
Gegenstand / Gerät               
               
Artikel / Hersteller :               
Name / Modell :               
Seriennummer :               
Besonderheiten des Artikel :               
Zustand :               
Sonstiges/Zubehör :               
               
         Kaufpreis:      
               




Ich hab mir ein Makro zusammen gepuzzelt das so aussieht:

'Code in einem alllgemeinen Modul der Datei.
Sub Artikel_übertragen()
  Dim wksEingabe As Worksheet
  Dim wksListe As Worksheet
  Dim lngZeile As Long, rngZelle As Range
 
  Set wksEingabe = Worksheets("Kaufvertrag")  'Eingabetabellenblatt
  Set wksListe = Worksheets("Artikel")      'Tabellenblatt in das die Daten geschrieben werden _
sollen
 
  With wksListe
    'nächste freie Zeile in Liste
    Set rngZelle = .Cells.Find(What:="*", after:=.Range("A1"), LookIn:=xlFormulas, _
        lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlPrevious)
    If rngZelle Is Nothing Then
      lngZeile = 1
    Else
      lngZeile = rngZelle.Row + 1
    End If
    'Spalte A - automatisch Nummerieren
    .Cells(lngZeile, 1).Value = Application.WorksheetFunction.Max(.Columns(1)) + 1
    .Cells(lngZeile, 2).Value = wksEingabe.Range("C25")
    .Cells(lngZeile, 3).Value = wksEingabe.Range("C26")
    .Cells(lngZeile, 4).Value = wksEingabe.Range("C27")
    .Cells(lngZeile, 5).Value = wksEingabe.Range("C28")
    .Cells(lngZeile, 6).Value = wksEingabe.Range("C29")
    .Cells(lngZeile, 7).Value = wksEingabe.Range("C30")
    .Cells(lngZeile, .Value = wksEingabe.Range("E32")
    'usw.

  End With
End Sub

[crywolf66]

Hab die lösung kann geschlossen werden danke.