Wert aus Zelle x in Zelle y, wenn Zelle Y =1

Private Sub CommandButton1_Click()
Range("A23:A37").Select
Selection.TextToColumns Destination:=Range("A23"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=":", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)),  _
TrailingMinusNumbers:=True
End Sub

soll Zelle A31 überprüft werden, enthält sie die Zahl1 so soll der Wert von Zelle A30 übernommen werden.
Gibt es da eine Möglichkeit?
Im Voraus schon mal herzlichen Dank für eure Hilfe
Wolfgang