VBA - Jak formatować liczby, pomijając wartości procentowe?

Witam,
mam takie makro:


w kolejnych wierszach mam dane liczbowe, lub wiuersze z danymi w %.
potzrbuje aby makro zmienialo dane liczbowe na format Selection.NumberFormat = "#,##0.0_ ;[Red]-#,##0.0 ;-" -pomijajac dane w % -te maja zostac nie zmienione.

CZy ktos moze pomóc?
Dzikeuej

nie mam excela pod reka ale dodaj zmianę formatu komorki


daj wewnątrz warunku if... then, po Then

Bardzo dziękuje.

Czy mogłabym jeszcze prosić o komendę , która pozostawia kursor w aktywnym konspekcie ? Mam w arkuszu 7 grupowań i chciałabym aby makro (powyższe z 1 zapytania) działało tak, ze kursor po dzialaniu makra zostaje w konspekcie z którego użytkownik włączył makro.
..ActiveSheet.Outline.ShowLevels