Format destination data

First here is code currently being executed:

Sub Transpose_PasteModified()

Dim source As Worksheet
Dim destination As Worksheet
Dim emptyColumn As Long

Set source = Sheets("Master")
Set destination = Sheets("Log")


'Data Source
source.Range("D4:E1858").Copy
'Gets Empty Column
emptyColumn = destination.Cells(4, destination.Columns.Count).End(xlToLeft).Column
Application.ScreenUpdating = False

    If IsEmpty(destination.Range("G4")) Then
        destination.Cells(4, 7).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Else
        emptyColumn = emptyColumn + 1
        destination.Cells(4, emptyColumn).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        destination.Cells(3, emptyColumn).Value = Format(Now, "dd:mm:yy hh:mm")
    End If
Application.CutCopyMode = False
source.Range("A1").Select
Application.ScreenUpdating = True
End Sub

Originally the source was source.Range("D4:D1858").Copy

Then I added colE E4:E1858

The problem is colE is a percentage field, whereas colD is a numbers field.

I am not quite sure how to go about formatting this additional field. Perhaps there is a different approach I should be taking.

Any help would be most appreciated.

Patrick