Sub ExtractText()
Dim sourceSheet As Worksheet
Dim targetSheet As Worksheet
Dim lastRow As Long
Dim i As Long, j As Long
Dim cellValue As String
Dim dollarPos As Long
Dim spacePos As Long
Dim extractedText As String