```
Option Explicit
Sub Macro1()
Dim lngLastRow As Long
Dim wsOutput As Worksheet
Dim wsSource As Worksheet
Application.ScreenUpdating = False
Set wsOutput = Sheets("Sheet1") 'Sheet name for the following VBA to fill in
Set wsSource = Sheets("Sheet2") 'Sheet name containing completed data for VLOOKUP
lngLastRow = wsOutput.Range("A:G").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
With wsOutput
'Formula for School Name
With .Range("D2:D" & lngLastRow)
.Formula = "=VLOOKUP(A2,'" & CStr(wsSource.Name) & "'!A:G,3,FALSE)"
.Value = .Value 'Convert above formula to a value. Comment out or remove if you want the formula to remain
End With
'Formula for Country
With .Range("F2:F" & lngLastRow)
.Formula = "=VLOOKUP(A2,'" & CStr(wsSource.Name) & "'!A:G,7,FALSE)"
.Value = .Value 'Convert above formula to a value. Comment out or remove if you want the formula to remain
End With
'Formula for Parent
With .Range("G2:G" & lngLastRow)
.Formula = "=VLOOKUP(A2,'" & CStr(wsSource.Name) & "'!A:G,5,FALSE)"
.Value = .Value 'Convert above formula to a value. Comment out or remove if you want the formula to remain
End With
End With
Set wsOutput = Nothing
Set wsSource = Nothing
Application.ScreenUpdating = True
End Sub
```