Dosyayı ekledim. Sayfadaki butona tıklamanız yeterli.

Bu kod ile test sayfasındaki dolu hücreleri bulup seçer

Sub Dolusec()
Dim secilenHuc As Range
Set ws = ThisWorkbook.Sheets( test )
For Each cell In...

Kodun en başına Application.ScreenUpdating = False en sonunada Application.ScreenUpdating = True ekleyin hızlandırır

tşk ederim kolay gelsin.