If WS1.Cells(J, 6).Value <> "(blank)" Then
WS3.Cells(N, 7).Value = WS1.Cells(J, 6).Value
End If
If WS1.Cells(J, 5).Value <> "(blank)" Then
WS3.Cells(N, 6).Value = WS1.Cells(J, 5).Value
End If
If WS1.Cells(J, 4).Value <> "(blank)" Then
WS3.Cells(N, 4).Value = WS1.Cells(J, 4).Value
End If