Private Sub CommandButton1_Click()
Dim Sh1 As String, Sh2 As String
Dim ws As Worksheet, Sh As Worksheet
Dim LR As Long, Rng As Range
Sh1 = InputBox("")
Set ws = Sheets(Sh1)
Set Rng = ws.Range("B5:B" & ws.Range("B" & Rows.Count).End(3).Row)
Sh2 = InputBox("")
Set Sh = Sheets(Sh2)
LR = Sh.Range("B" & Rows.Count).End(3).Row + 1
Rng.Copy
Sh.Range("B" & LR).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub