Farklı olan rakamları sil

[orange4609]

Merhabalar,

A6:I15331 arasında verileri olan bir sayfam var.ancak;g sutununda 1,2,3sayıları içeriyor.bana sadece 1 olan lazım.dolayısıyla, 2-3 içeriyorsa karşılık gelen A:I arasındaki veriler silinsin diyebileceğimiz bi kod yazılabilir mi?

Yardımcı olabilirseniz sevinirim.
tşkler..
iyi günler

 

[kan-nas]

Sub Button1_Click()
Dim i As Long
For i = 1 To Range("g65536").End(3).Row
If Cells(i, 7).Value <> 1 Then
Rows(i).Delete
i = i - 1
End If
Next i
i = Empty
End Sub

 

[orange4609]

tşkler.
elinize,emeğinize sağlık..tam istediğim gibi ama sanırım tüm hücreleri taradıgından çok yavaş çalışıyor..