You're missing End if after all your if statements here:
If wsh.Range("B" & r).Value = work.Range("B").Value Then
work.Range("C").Value = wsh.Range("C" & r).Value
If wsh.Range("H" & r).Value = work.Range("B").Value Then
work.Range("F").Value = wsh.Range("I" & r).Value
If wsh.Range("I" & r).Value = work.Range("B").Value Then
work.Range("I").Value = wsh.Range("O" & r).Value
If wsh.Range("N" & r).Value = work.Range("B").Value Then
If wsh.Range("Z" & r).Value = work.Range("B").Value Then
work.Range("O").Value = wsh.Range("AA" & r).Value
On a side note you really should indent your code. This becomes a lot easier to catch.