VBA - Makro do wyszukiwania wartości w pionie, przeszukujące dynamiczne zakresy arkusza

Potrzebuję makro wyszukujące zadaną wartość w nieokreślonym zakresie arkusza.
Nie mogę określić konkretnego zakresu ponieważ zakresy są różne.

Wyszukiwanie zawsze zaczyna się od A1.
Makro zawierające: "For Each komórka In ActiveSheet.Cells" wyszukuje zadaną wartość przeszukując arkusz w poziomie tzn. komórka A1, B1, C1 ..., następnie A2, B2, C2 itd.

Ja potrzebuję żeby makro przeszukiwało arkusz w pionie tzn. A1, A2, A3..., następnie B1, B2, B3..., C1, C2, C3...itd.

W makrze jest kod zatrzymujący przeszukiwanie po spełnieniu określonego kryterium. Jeżeli wyłączę ten kod uzyskuję założony cel tylko niepotrzebnie przeszukiwany jest CAŁY arkusz.

Proszę o podpowiedzi w formie zrozumiałej dla osoby początkującej.

Jeśli oczekujesz konkretnej podpowiedzi zamieść przykładowy plik.
Jeśli wystarczy Ci odpowiedź ogólna, to zainteresuj się metodą Range.Find
Nie przeszukuj całego arkusza, tylko jego używaną część Activesheet.UsedRange.
Sama metoda Find ma kilka parametrów, m.in. parametr SearchOrder, który określa, czy arkusz ma być przeszukiwany wierszami czy kolumnami.

Na pewno będzie to dużo szybsze niż For Each cell in Activesheet.Cells

Sub zmiana_formatu()

Dim komórka As Object
Dim a As String 'a - format komórki


For Each komórka In Range("A:A")
If komórka.NumberFormat = "h:mm:ss" Then komórka.NumberFormat = "h:mm"

If komórka = "" And komórka.Offset(1, 0) = "" Then Exit Sub
Next komórka

End Sub

To makro przeszukuje kolumnę A i kończy działanie jeśli dwie kolejne komórki są puste.
Potrzebuję żeby zamiast opuścić Sub przeszukało kolumnę B, potem C itd. aż do spełnienia warunku, który dopiszę później.

DZIĘKUJĘ za pomoc.

Prosiłem o załącznik, żeby było wiadomo jaki jest układ danych i żeby było na czym przetestować zaproponowany kod.

Czy te poszukiwane komórki stanowią ciąg kolejnych komórek, czy są rozmieszczone w kolumnie losowo, rozdzielone innymi komórkami (z innym formatowaniem)?
Czy w kolejnych kolumnach jest tyle samo wypełnionych komórek (przynajmniej z grubsza), czy w każdej kolumnie inaczej?

W załączniku przykładowy plik.
Struktura danych zawsze jest taka sama.

Już myślałem, że się nie doczekam na ten plik.
Proponuję taki kod:
Wstawiłem instrukcję Stop po każdej kolumnie, bo napisałeś, że później zdecydujesz, ile kolumn zamienić. Gdybyś chciał zamienić wszystko, to tę instrukcję można usunąć (lub zakomentować).
Gdybyś znał z góry liczbę kolumn, to w nagłówku pętli zamiast .Columns.Count podaj konkretną liczbę np. 3.

Załączony plik po wykonaniu makra.

To jest dobre rozwiązanie. W mojej książce o VBA nie ma o tym ani słowa.

DZIĘKUJĘ!