It depends on your definition of simple. If copy and paste is included in that definition then you need a macro .

Sub MoveFile()
'Graham Mayor - https://www.gmayor.com - Last updated - 30 Nov 2018
Dim fso As Object
Dim iPath As Long
Dim vPath As Variant
Dim strPath As String, strOldPath As String
Dim strName As String
Dim xlSheet As Worksheet
    Set xlSheet = ActiveSheet
    With xlSheet
        strPath = .Range("A7") & "\Approved"    'assign the target path to a string
        If UCase(.Range("I3")) = "YES" Then    'check if the move is approved
            Set fso = CreateObject("Scripting.FileSystemObject")
            strOldPath = .Range("E3")    'assign the original file path to a string
            If fso.FileExists(strOldPath) Then
                'extract the filename from the full name
                strName = Split(strOldPath, "\")(UBound(Split(strOldPath, "\")))
                'ensure the target path exists and create it if it doesn't
                vPath = Split(strPath, "\")
                strPath = vPath(0) & "\"
                For iPath = 1 To UBound(vPath)
                    strPath = strPath & vPath(iPath) & "\"
                    If Not fso.FolderExists(strPath) Then MkDir strPath
                Next iPath
                'move the file
                Name strOldPath As strPath & strName
                Beep
                MsgBox "File moved to " & strPath
            Else
                Beep
                MsgBox strOldPath & " not found"
            End If
        End If
    End With
    Set xlSheet = Nothing
    Set fso = Nothing
End Sub