MACRO: IF THEN Statement (Multiple Criteria Match then Copy)

[pawcoyote]

Roger that thank you,

Added this bit of code to the macro to delete any 'copy' fields if the 'match' fields are blank. Any fields NOT on the 'copy' list are left

    'delete 'fields to copy' on Deployment if all the 'fields to match' are blank
    For iDeploy = 3 To rDeploy.Rows.Count
        If CheckBlanks(rDeploy.Rows(iDeploy)) Then
            For iCopy = LBound(aCopy, 1) + 1 To UBound(aCopy, 1)
                rDeploy.Cells(iDeploy, aCopy(iCopy, 2)).Clear
            Next iCopy
        End If
    Next iDeploy