I need help with macro's

[Guest]

I need help with a macro that will get information from a specific sheet that
has multiple characters and dispurse those characters in differnt columns on
another sheet. for example sheet 1 column one would be 1840 blk bott to
sheet 2 row 1 1840 row 2 blk bott. thank you

 

[Guest]

Sub movesheet2()

Worksheets("sheet1").Activate
RowCount = 1
With Worksheets("sheet2")
Do While Cells(RowCount, "A") <> ""

Number = Val(Cells(RowCount, "A"))
Text = Cells(RowCount, "A")
Text = Trim(Mid(Text, InStr(Text, " ")))
.Cells(RowCount, "A") = Number
.Cells(RowCount, "B") = Text
RowCount = RowCount + 1
Loop
End With
End Sub

 

[Guest]

Thanks Joel.

Sub movesheet2()

Worksheets("sheet1").Activate
RowCount = 1
With Worksheets("sheet2")
Do While Cells(RowCount, "A") <> ""

Number = Val(Cells(RowCount, "A"))
Text = Cells(RowCount, "A")
Text = Trim(Mid(Text, InStr(Text, " ")))
.Cells(RowCount, "A") = Number
.Cells(RowCount, "B") = Text
RowCount = RowCount + 1
Loop
End With
End Sub