VBA Compile Error: Procedure too long

VBA Compile Error: Procedure too long

How could I shorten this code? Forgive me for bad coding practices I'm
self taught and pretty much a noob.
The code is comprised of 199 "Elseif" statements, I don't know any other
way to write what i'm trying to do.
Sub CopytoRoutine()
If Sheets("iPhone view").Range("A2") = Sheets("Routine").Range("B9") And
Sheets("iPhone view").Range("A3") = Sheets("Routine").Range("C7") Then
Range("A5:B5").Select
Selection.Copy
Sheets("Routine").Select
Range("C9:D9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=FalseL
ElseIf Sheets(iPhone view).Range(A2) = Sheets(Routine).Range(B10) And
Sheets(iPhone view).Range(A3) = Sheets(Routine).Range(C7) Then
Range(A5:B5).Select
Selection.Copy
Sheets(Routine).Select
Range(C10:D10).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
ElseIf Sheets(iPhone view).Range(A2) = Sheets(Routine).Range(B11) And
Sheets(iPhone view).Range(A3) = Sheets(Routine).Range(C7) Then
Range(A5:B5).Select
Selection.Copy
Sheets(Routine).Select
Range(C11:D11).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
ElseIf Sheets(iPhone view).Range(A2) = Sheets(Routine).Range(B12) And
Sheets(iPhone view).Range(A3) = Sheets(Routine).Range(C7) Then
Range(A5:B5).Select
Selection.Copy
Sheets(Routine).Select
Range(C12:D12).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
ElseIf Sheets(iPhone view).Range(A2) = Sheets(Routine).Range(B13) And
Sheets(iPhone view).Range(A3) = Sheets(Routine).Range(C7) Then
Range(A5:B5).Select
Selection.Copy
Sheets(Routine).Select
Range(C13:D13).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
ElseIf Sheets(iPhone view).Range(A2) = Sheets(Routine).Range(B14) And
Sheets(iPhone view).Range(A3) = Sheets(Routine).Range(C7) Then
Range(A5:B5).Select
Selection.Copy
Sheets(Routine).Select
Range(C14:D14).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
ElseIf Sheets(iPhone view).Range(A2) = Sheets(Routine).Range(B15) And
Sheets(iPhone view).Range(A3) = Sheets(Routine).Range(C7) Then
Range(A5:B5).Select
Selection.Copy
Sheets(Routine).Select
Range(C15:D15).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
/code/pre
pSheets(Routine).Range(Bx) Where x= 9-29/p
pSheets(Routine).Range(C7), this range changes to G7,K7,O7,S7,...AM7. when
the above gets to B29/p
pThe column letter for Range(C9:D9).Select changes respectively with the
above, so do the row numbers/p