hvordan laver man loop? VBA

Hej.
Jeg skal via makro tjekke hver celle for et bestemt indhold i kollonne A, og hvis makroen finder indholdet skal den lave en udregning med tallet i kollonne D, samme række. Resultatet af den udregning skal så overskrive feltet i række D. hvis værdien er =<0 skal den ikke skrive noget.
Jeg håber det gav mening.

Jeg er selvlært, og har prøvet at søge både på nettet og i min vba for dummies bog, men jeg kan ikke få det til at lykkedes.

Her er koden:
Range("A260:A797").Select
    Dim Cell As Range
    For Each Cell In Selection
        If Cell.Value = "80060928010" Then
        ActiveCell.Offset(0, 3).Value = (1 - (((100 - ActiveCell.Offset(0, 3).Value) / 100) / 0.6)) * 100
        If ActiveCell.Offset(0, 3).Value <= 0 Then ActiveCell.Offset(0, 3).Value = ""
    End If
Next Cell