Code Inkorten

[jvandervliet]

Hallo,

Graag zou ik de deze code willen inkorten.

 Sheets("Factuur").Select
    Range("F16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Facturen").Select
    Range("B1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Ik heb hier al een stukje uit een andere code. Hoe moet ik dan van cel bijvoorbeeld cel F16 kopiëren naar de geselecteerde cel?

With Sheets("Facturen").Cells(Rows.Count, 2).End(xlUp)
    ActiveCell.Offset(1, 0).Select

alvast dank!

 

[HSV]

uit de losse....

Sheets("facturen").cells(rows.count,2).end(xlup).offset(1) = sheets("factuur").range("f16").value

 

[jvandervliet]

HSV, het is gelukt. Hij doet het! Super bedankt!