Deger ve Format Yapistiri ayni anda, ayni satirda kullanmak

[Mertinc]

Kopyaladigim bir araligi hem deger olarak (xlPasteValues) hem de format olarak (xlPasteFormats) yapistirmak istiyorum ancak bunlari 2 satirda degil de tek 1 islemde halletmek istiyorum, internette cok arastirdim ama mumkun olduguna dair birsey bulamadim son kez siz sayin ustadlarima sormak istedim. xlPasteValues and xlPasteFormat gibisinden bir kod yok mudur? (With'li bir cozum aramiyorum gercekten Tek satirli bir kod ariyorum.)
(xlPasteValuesAndNumberFormat degil format painter gorevi goren xlPasteFormat tan bahsediyorum)

Suanki mevcut kod gordugunuz gibi 2 ayri Satir kullanmak zorundayim:

 ws5.Range("F3:N" & xCell).SpecialCells(xlCellTypeVisible).Copy

 ws16.Cells(Rows.Count, "B").End(xlUp).Offset(4, 0).PasteSpecial xlPasteValues
 ws16.Cells(Rows.Count, "B").End(xlUp).Offset(4, 0).PasteSpecial xlPasteFormats