[VBA] Kopiowanie ze schowka

Witam
piszę sobie makra które ułatwią mi pracę i szczerze mówiąc zablokowałem się.
Kod powinien kopiować wartość gotówki z jednego otwartego arkusza i wklejać go w innym otwartym już wcześniej pliku.
X który podajemy na początku jest numerem kasjera któremu chcemy poprawić wartość gotówki w drugim pliku.
Program nie działa zamiast wkleić w drugim pliku wartość gotówki w odpowiednim miejscu zjeżdża na sam koniec.
Podejrzewam że coś jest nie tak z wartością X w ostatnim warunku, bo kiedy zamieniam ją na dowolną liczbę program poprawnie działa.

Za wszelką pomoc i sugestie z góry dziękuję ;)

Sub KOREKTA_GOTOWKI()
    x = InputBox("Któremu kasjerowi mam poprawić gotówkę? Podaj numer..", "KALKULATOR 1.0")
    If x > 30 Then
        MsgBox "Błędny numer kasjera"
    Else
        Cells(x + 1, 4).Select
        If Selection.Value = 0 Then
            MsgBox "Brak wyniku do przeniesienia"
        End If
        Selection.Copy
        Windows("ROZLICZENIE.xlsx").Activate
        For i = 1 To 30
            Cells(i, 1).Select
            If Selection.Value = x Then
                Cells(i, 5).Select
                ActiveSheet.Paste
            End If
        Next i
    End If
End Sub