Sıfır ve boşluk ve formül hariç sadece değerleri kopyalama

[Gold_Savt]

A1:C5 aralığındaki formülden doğna değerleri; F1:H5 tablosuna kopyalamak istiyorum.
Ancak sıfır değeri ve formüller gelmemeli.

Range("A1:C5").Copy
Range("F1").PasteSpecial xlPasteValues

dedim ama sıfırlar geliyor üstelik tablonun şeklini de değiştiriyor.

 

[PLİNT]

Merhaba
Aşağıdaki gibi olabilir

Sub deger()
With Range("f1:h5")
.Value = Range("A1:C5").Value
.Replace "0", "", xlWhole
End With
End Sub

 

[Gold_Savt]

Teşekkür ediyorum PLİNT; Elinize sağlık.