HERE IS WHAT I HAVE RIGHT NOW THAT WILL CHANGE THE FIRST ROW OF
APCURRENT TO THE INFORMATION IN CORPCONTACT, but would like it look the

whole sheet and change every instance of the first command being true.

Sub COPYDATA()

Dim APCURRENT As Worksheet
Dim CORPCONTACT As Worksheet

Set APCURRENT = ThisWorkbook.Sheets(1)
Set CORPCONTACT = ThisWorkbook.Sheets(2)

If APCURRENT.Range("B2").Value = CORPCONTACT.Range("A2").Value Then

APCURRENT.Range("C2").Value = CORPCONTACT.Range("B2").Value

APCURRENT.Range("D2").Value = CORPCONTACT.Range("C2").Value

APCURRENT.Range("e2").Value = CORPCONTACT.Range("d2").Value

APCURRENT.Range("f2").Value = CORPCONTACT.Range("e2").Value

APCURRENT.Range("g2).Value = CORPCONTACT.Range("f2").Value

End If

End Sub