Skapa flera linjer i excel?

Hej jag ska koppla information som hämtas i excels celler för att skapa många linjer hur löser man detta?
För att skapa en linje (som ritas när jag trycke på knappen) har jag kommit fram till följande kod:

Sub Rita()
Worksheets("Nät").Activate

With ActiveSheet
For Each Sh In .Shapes
If Sh.Type = msoLine Then
Sh.Delete
ElseIf Sh.Type = msoTextBox Then
Sh.Delete
End If
Next Sh
End With


With ActiveSheet.Shapes.AddLine(Range("AN47").Value, Range("AO47").Value, Range("AQ47").Value + Range("AN47").Value, Range("AR47").Value + Range("AO47").Value)
.Line.Weight = ActiveSheet.Range("AP47").Value
End With

End Sub


Informationen som skall hämtas ligger i AN47 till AN200, AO47 till AO200 osv..

Mycket tacksam för svar håller på att bli galen nu i juletid :-)