In Zellen Formel einfügen!!

ich habe ein Problem! Und zwar möchte ich in einer Spalte, aber nur in denen, die eine Umrandung haben eine bestimmte Formel eintragen!

Kann mir vielleicht jemand helfen, denn mein Makro akzeptiert er mir nicht!?

Danke!
Chris

Dim i As Integer

For i = 30 To 100
If Cells(i, 5).Borders(xlDiagonalDown) And _
Borders(xlDiagonalUp) And _
Borders(xlEdgeLeft) And _
Borders(xlEdgeTop) And _
Borders(xlEdgeBottom) And _
Borders(xlEdgeRight) Then
Cells(i, 5).FormulaR1C1 = Cells(20, 5).FormulaR1C1
End If
Next i