Replace your first line with:
Cells(RowNum, 29).Copy
Cells(28, 5).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Replace the other two similarly.

Hth,
Merjet