Public Sub GetCellPhone() Dim CellPhone As String Dim Arr As Variant Dim Brr As Variant Dim n As Long Dim FolderPath As String Dim FileName As String Dim FilePath As String Dim Zone As String Dim WholeLine As String Dim OneLine As String Dim Phone As…