MACRO: How to import data from sheets.

[Admin]

Hi

Try

    Dim strDept As String
    Dim wksDest As Worksheet
    
    Set wksDest = Worksheets("Transfer to this sheet")  '<< adjust to suit
    
    strDept = Range("f16").Value2
    
    If Len(strDept) Then
        wksDest.UsedRange.Clear
        On Error GoTo 1
        Worksheets(CStr(strDept)).UsedRange.Copy wksDest.Range("a1")
    End If
    Exit Sub
1:
    MsgBox "Worksheet '" & strDept & "' does not exist", vbCritical