Sub Copy_Data()
Dim sh As Worksheet, exists As Boolean, wName As String
Application.ScreenUpdating = False
wName = Range("B13").Value
If wName = "" Then
MsgBox "Enter sheet name"
Exit Sub
End If
If Range("B2").Value = "" Then
MsgBox "Fill cell B2"
Exit Sub
End If
'
exists = False
For Each sh In Sheets
If LCase(sh.Name) = LCase(wName) Then
exists = True
Exit For
End If
Next
If exists Then
Range("B2:B12").Copy
Sheets(wName).Range("A" & Rows.Count).End(xlUp)(2).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Application.CutCopyMode = False
MsgBox "Done"
Else
MsgBox "The sheet does not exist"
End If
End Sub