Copy paste if cell is red

[arcaidius]

I have 4 columns with conditional formatting to fill red if values are duplicate.
I want to make a VBA code to copy all the cells that are red and paste them into 4 new columns.
So all red colored cells in column A can get pasted to column G, Column B to H, C to I, D to J.

Been scouring the internet for hours and can't make anything I've found work, please help.

 

[arcaidius]

Woops, I mean

On Error Resume Next
  Columns("G:J").SpecialCells(xlCellTypeBlanks).Delete shift:=xlUp

 

[MARK858]

You're welcome (btw it "pasted" in the same rows as you didn't specify what rows you wanted the results in)