try this code (no zip and no password)
Sub a()
LR = Cells(Rows.Count, "A").End(xlUp).Row
For j = 2 To LR
  spath = Cells(j, 1)
  sfname = Cells(j, 2)
  dfname = Cells(j, 4)
  dpath = Cells(j, 3)
  If Range("H" & j) <> "" Then dfname = Range("H" & j)
  If Range("J" & j) = "Yes" Then
    Name spath & sfname As dpath & dfname
    'MsgBox "Name " & spath & sfname & " As " & dpath & dfname
  Else
    'MsgBox "FileCopy " & spath & sfname & "," & dpath & dfname
    FileCopy spath & sfname, dpath & dfname
  End If
Next
End Sub