VBA code to copy (formula =0) cells as blanks

Hi,
Currently using simple macros:
Sub PasteasValue()
Selection.PasteSpecial Paste:=xlPasteValues, SkipBlanks:=True
End Sub

Objective:
Copy data in C36 to CD39 from Room Data Tab and paste under BAR Tab ( Because of formula in each cell of room data tab - excel is not picking the cell to be blank but rather taking value as 0)
Same then needs to be done for value in C40 to CD43 and paste under CONS Tab

Need a way to modify this code to pick 0 as blank and I can paste it as value and skip blank as well.