Sub Artikel_übertragen()
Dim wksEingabe As Worksheet
Dim wksListe As Worksheet
Dim lngZeile As Long, rngZelle As Range
Set wksEingabe = Worksheets("Kaufvertrag")
Set wksListe = Worksheets("Artikel")
sollen
With wksListe
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
.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, 8).Value = wksEingabe.Range("E32")
End With
End Sub