Solved: Copy Data from Excel sheet into Another Macro

[Holland]

Hello,
I've been trying to record a macro to copy info from the Data sheet to the Log_Status sheet (all in excel) and it's doesn't work. As a user enters a value into the Status_Log sheet tab Cell B5 only and then hit's the UpLoad button the form should load full of info pulled from the Data sheet tab.

The thing is B5 will always change depending on end users input, but the macro always reads 'ActiveCell.FormulaR1C1 = "PO" and always filters on the "PO" nothing else. Also please see attached copy Attachment 10559

Any help would be greatly appreciated!
Thank you,
Holland

[VBA]
'--------------

Sub UpLoad_Click()
'
' UpLoad_Click Macro
' Macro recorded 10/30/2008 by Holland McAdam
'
'
Range("B5").Select
ActiveCell.FormulaR1C1 = "PO"
Sheets("Data").Select
Rows("1:1").Select
Selection.AutoFilter
Range("A9").Select
Selection.AutoFilter Field:=1, Criteria1:="=PO", Operator:=xlAnd
Range("C8").Select
ActiveCell.FormulaR1C1 = "test strobes 6"
Sheets("Status_Log (2)").Select
Range("B6").Select
ActiveCell.FormulaR1C1 = "test strobes 6"
Range("B7").Select
Sheets("Data").Select
Range("D8").Select
ActiveCell.FormulaR1C1 = "ABC"
Sheets("Status_Log (2)").Select
ActiveCell.FormulaR1C1 = "ABC"
Range("B8").Select
Sheets("Data").Select
Range("E8").Select
ActiveCell.FormulaR1C1 = "N/A"
Sheets("Status_Log (2)").Select
ActiveCell.FormulaR1C1 = "N/A"
Range("A11").Select
Sheets("Data").Select
Range("B8:B50").Select
ActiveWindow.SmallScroll Down:=-39
Range("B2:B50").Select
ActiveWindow.SmallScroll Down:=-30
Selection.Copy
Sheets("Status_Log (2)").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B11").Select
Sheets("Data").Select
Range("F2:F50").Select
ActiveWindow.SmallScroll Down:=-36
Application.CutCopyMode = False
Selection.Copy
Sheets("Status_Log (2)").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A3:B3").Select
Sheets("Data").Select
Rows("1:1").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("G2").Select
ActiveWindow.SmallScroll Down:=-15
Sheets("Status_Log (2)").Select
End Sub
[/VBA]