Try this
I added code and a button to your formatted spreadsheet so all you have to do is press a button.
Option Explicit
Sub OpenCleanFill()
Dim WB, OpenWB As Workbook
Dim FileToOpen As String
Set WB = ActiveWorkbook
FileToOpen = Application.GetOpenFilename(Title:="Select File to Open where data will be added", _
FileFilter:="Excel Files (*.xls*),*xls*")
If FileToOpen = "False" Then Exit Sub
Set OpenWB = Workbooks.Open(Filename:=FileToOpen, ReadOnly:=False)
With OpenWB.Sheets("Sheet2")
Rows("1:7").Delete Shift:=xlUp
Columns("B:J").Delete Shift:=xlToLeft
Columns("C:Q").Delete Shift:=xlToLeft
Columns("F:Q").Delete Shift:=xlToLeft
Columns("D:D").Select
Selection.Replace What:="I am not a Veteran", Replacement:="N", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="Veteran", Replacement:="Y", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("E:E").Select
Selection.Replace What:="Yes", Replacement:="Y", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="No", Replacement:="N", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Rows("1:1").AutoFilter
ActiveSheet.AutoFilter.Sort.SortFields.Clear
ActiveSheet.AutoFilter.Sort.SortFields.Add Key:=Range _
("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveSheet.AutoFilter.Sort
.Header = xlYes
.Apply
End With
Range(Cells(2, 1), Cells(Cells(.Rows.Count, 1).End(xlUp).Row, 5)).Copy
End With
WB.Sheets("MATRIX").[B25].PasteSpecial xlPasteValues
Application.DisplayAlerts = False
OpenWB.Close True
Application.DisplayAlerts = True
End Sub
Bookmarks