Excel VisualBasic Script

Sub copy()
    Cells(2, "B").copy
    Range("B2:B10").Select
    ActiveSheet.Paste
End Sub