Here is the code I am struggeling with please assist me
If Range("a4").Value = "902" Then
Range("C4").Select
Selection.Copy
Sheets("Trend").Select
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
If Range("a4").Value = "903" Then
Range("C4").Select
Selection.Copy
Sheets("Trend").Select
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
If Range("a4").Value = "910" Then
Range("C4").Select
Selection.Copy
Sheets("Trend").Select
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
If Range("A5").Value = "902" Then
Range("C5").Select
Selection.Copy
Sheets("Trend").Select
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
If Range("A5").Value = "903" Then
Range("C5").Select
Selection.Copy
Sheets("Trend").Select
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
If Range("a5").Value = "910" Then
Range("C4").Select
Selection.Copy
Sheets("Trend").Select
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Please assist in this, the value a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, and a16 changes 65 times with different numbers.