makro kullanarak karakterden öncesini silme

[muyat]

Aşagıdaki makro A sutunundan başlayıp 1000.satıra kadar hücreleri tarayıp içindeki verilerde varsa "-" karakterinden öncesini siliyor.

Benim istedigim şey ise E ve F sutunları hariç bütün sutunları tarayıp bu işlemi yapmasını istiyorum.Kodda düzeltme yapıp bakabilir misiniz

Sub Dikdörtgen3_Tıkla()
Set s = ActiveSheet
For i = 1 To 1000


Bak = s.Cells(i, 1)

For j = 1 To Len(s.Cells(i, 1))
If Mid(s.Cells(i, 1), j, 1) = "-" Then
Bak = Right(s.Cells(i, 1), Len(s.Cells(i, 1)) - j)
End If
Next

s.Cells(i, 1) = Bak
Next

End Sub