Macro Cell Formatting Problem

[Pleau]

Range("D13").Select
Selection.Copy


Set wksPasteTo = ActiveWorkbook.Sheets("Summary")
Set rngPasteTo = wksPasteTo.Range("B9")
Do Until rngPasteTo = ""

Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Set rngPasteTo = rngPasteTo.Offset(1)

Loop
wksPasteTo.Paste rngPasteTo

guys please help
what i'm doing is copying the data from other sheet to the desired sheet. the extra functions are for it to paste in the next blank cell. the problem is i can't remove the source formatting using the pastespecial function (in red) my goal is to automatically paste them in destination format

thanks!

[Pleau]

false alarm