Wprowadzanie danych do arkusza

witam , potrzebuję pomocy, mianowicie, chciałbym mieć możliwość ponownego zadeklarowania danych, w przypadku, gdy moje PS jest >100 i gdy PS=0 i gdy nie jest wartością liczbową lub brakiem wartości w ogóle, jakoś mi to nie wychodzi......plissss....

PS = InputBox("Podaj PS rurociągów ", "Ciśnienie obliczeniowe")
For z = 1 To 8
Cells(1 + z, 1) = PS
If IsNumeric(PS) = True Then
PS = Round(PS, 0)
If PS > 100 Then
StrResult = "Wprowadź poprawne dane"
ElseIf PS > 0 Then
StrResult = PS
ElseIf PS <= 0 Then
StrResult = "Wprowadź poprawne dane"
End If
Else: StrResult = "Wprowadź wartość liczbową"
End If
Next z

Pętla WHILE

@Marcin, możesz przykład napisać dla PS=0....dzięki

Dzień dobry. Poszukuję rozwiązania za pomocą Vba .
Dane są zawarte w 6 kolumnach ok 2000 linii posiadają duplikaty i nie tylko-są też pojedyncze linie w liście.
Makro powinno wycinać i wklejać do Arkusza2 w oparciu o duplikaty lub pojedyncze elementy Arkusza1 z kol"A" w zakresie linii do kolumny "E" .
( w całej liście w większości to duplikat choć występują i pojedyncze element które są datami (RRRR MM DD GG MM SS-)
Wycinacie i wklejanie do Arkusza2 ma na celu usuniecie danych z Arkusza1 a następnie wklejenie w Arkuszu2 (chce graficznie określić wzór do druków Ark..2) Wycinanie i wklejanie wykonywanie cyklicznie aż do zabrania ostatnich danych z Arkusza1.
Myślę że rozpoznawanie powinno zacząć się od ostatniej komórki aż do pierwszych kom. (A1:F1 )
Dodam że ilość duplikatów drukowanych może być rożna i zawierać się miedzy 1 a 50 linii i tak ok100 cykli
Celem jest stworzenie drukowania cyklicznego zamówień z Arkusza2 aby ułatwić pracę, obecnie robi się ręcznie.
Ps Jeżeli jest możliwość pomocy w w/w temacie .
Z poważaniem Krzysztof Bru