Public Sub MoskvarechieBrend()
Dim lngCounter As Long, dblTemp As Long
If vbCancel = MsgBox("Âû óñòàíîâèëè êóðñîð íà íà÷àëî ïðîâåðÿìîãî ñòîëáöà?", _
vbQuestion + vbOKCancel, "Âîïðîñ") Then Exit Sub

lngCounter =  0 

Do While ActiveCell.Offset(lngCounter,  0 ).Value <> Empty
dblTemp = ActiveCell.Offset(lngCounter,  0 ).Value

If dblTemp <> "555" Or dblTemp <> "AKG" Or dblTemp <> "BENDIX" Or _
dblTemp <> "BENDIX" Or dblTemp <> "BERU" Or dblTemp <> "BOGE" Or _
dblTemp <> "BOSAL" Or dblTemp <> "BOSCH" Or dblTemp <> "BREMBO" Or _
dblTemp <> "CTC" Or dblTemp <> "FEBI" Or dblTemp <> "FILTRON" Or _
dblTemp <> "GATES" Or dblTemp <> "GKN" Or dblTemp <> "GMB" Or _
dblTemp <> "GRAF" Or dblTemp <> "HANS PRIES" Or dblTemp <> "LUK" Or _
dblTemp <> "IRB" Or dblTemp <> "JURD" Or dblTemp <> "KAYABA" Or _
dblTemp <> "KNECHT" Or dblTemp <> "LEMFORDER" Or dblTemp <> "LESJOFORS" Or _
dblTemp <> "LPR" Or dblTemp <> "MANN" Or dblTemp <> "NGK" Or _
dblTemp <> "NISSENS" Or dblTemp <> "MANN" Or dblTemp <> "SACHS" Or _
dblTemp <> "SKF" Or dblTemp <> "SNR" Or dblTemp <> "VDO" Or _
dblTemp <> "VERNET" Or dblTemp <> "VICTOR REINZ" Or _
dblTemp <> "ZF" Then
   

Selection.EntireRow.Delete

Else

lngCounter = lngCounter +  1 

End If
Loop
End Sub

Sub sssss()
Dim lngCounter As Long
Dim dblTemp As String


lngCounter =  0 

Do While ActiveCell.Offset(lngCounter,  0 ).Value <> Empty
dblTemp = ActiveCell.Offset(lngCounter,  0 ).Value

If dblTemp <> "555" And dblTemp <> "AKG" And dblTemp <> "BENDIX" And _
dblTemp <> "BENDIX" And dblTemp <> "BERU" And dblTemp <> "BOGE" And _
dblTemp <> "BOSAL" And dblTemp <> "BOSCH" And dblTemp <> "BREMBO" And _
dblTemp <> "CTC" And dblTemp <> "FEBI" And dblTemp <> "FILTRON" And _
dblTemp <> "GATES" And dblTemp <> "GKN" And dblTemp <> "GMB" And _
dblTemp <> "GRAF" And dblTemp <> "HANS PRIES" And dblTemp <> "LUK" And _
dblTemp <> "IRB" And dblTemp <> "JURD" And dblTemp <> "KAYABA" And _
dblTemp <> "KNECHT" And dblTemp <> "LEMFAndDER" And dblTemp <> "LESJOFAndS" And _
dblTemp <> "LPR" And dblTemp <> "MANN" And dblTemp <> "NGK" And _
dblTemp <> "NISSENS" And dblTemp <> "MANN" And dblTemp <> "SACHS" And _
dblTemp <> "SKF" And dblTemp <> "SNR" And dblTemp <> "VDO" And _
dblTemp <> "VERNET" And dblTemp <> "VICTAnd REINZ" And _
dblTemp <> "ZF" Then
   

Selection.Offset.EntireRow.Delete

 Else

lngCounter = lngCounter +  1 

End If
Loop
End Sub

    Dim rng As Range
    
    For Each rng In Range("A:A")
        If Not (IsEmpty(rng.Value)) Then
            rng.Value = "img-" & rng.Value & ".ftp"
        End If
    Next

    Dim rng As Range
    
    For Each rng In Range("A:A")
        If Not (IsEmpty(rng.Value)) Then
            rng.Value = "img-" & rng.Value & ".ftp"
        End If
    Next

    Dim rng As Range
    
    For Each rng In Range("A:A")
        If Not (IsEmpty(rng.Value)) AND  rng.Value <> Empty Then
            rng.Value = "img-" & rng.Value & ".ftp"
        End If
    Next