07. Full Address

Sub SubAddress()
    Dim firstName, lastName, address, town, zipCode, country, fullAddress As String
    firstName = Range("A5")
    lastName = Range("B5")
    address = Range("C5")
    town = Range("D5")
    zipCode = Range("E5")
    country = Range("F5")
    fullAddress = firstName & " " & lastName & ", " & address & ", " & town & ", " & zipCode & ", " & country

    Debug.Print fullAddress

    Range("G5") = fullAddress
End Sub