Copy and Paste values and source formatting

Hello,

I am trying to get my macro below to copy and paste values and source formatting instead of just values.

Can anyone modify the macro to make it do this?

Thank you

Sub danfullwood()
Dim i As Long
Application.ScreenUpdating = False
For Each cell In Range("A4:A" & ActiveSheet.UsedRange.Rows.Count + 1)
    If cell.Value = "Yes" Then
        cell.EntireRow.Copy Sheets("Sourced Parts").Range("A" & Rows.Count).End(3)(3)
        cell.EntireRow.Delete xlUp
    End If
Next cell
For i = ActiveSheet.UsedRange.Rows.Count To 4 Step -1
    If Range("A" & i).Offset(1).Value = "" And Range("A" & i).Value <> "No" Then
        Range("A" & i).Offset(1).EntireRow.Delete xlUp
    End If
Next i
Application.ScreenUpdating = True
End Sub