Macro to paste to every other column

[josh921]

I have gotten a macro from a contributor on this forum and wondering if there is a way to change the paste portion so that values are pasted to every other column for the given row starting with column B. Desired outcome is that copied cell B3 is pasted in cell B 'Number' on destination, then copied C3 is pasted in D 'Number' and so on. Current macro looks like the following:

Sub Macro4()
Dim MyDate
Dim Number As Integer

MyDate = Date 'MyDate contains the current system date.
Sheets("Raw Data").Select
Range("A3").Select 'Start searching for dates in A3
Again:
If ActiveCell.Value = "" Then Exit Sub
If ActiveCell.Value = MyDate Then
Number = ActiveCell.Row
Sheets("Sheet2").Select
Range("B3:F3").Copy
Sheets("Raw Data").Select
Range("B" & Number).Select
'Paste as values in Raw Data
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, -1).Select
GoTo Again
Else
ActiveCell.Offset(1, 0).Select
GoTo Again
End If
End Sub