Dynamic Sheet Name in VBA

A little more difficult (at the beginning of learning), but faster:

    Dim R           As String
    Dim wksHome     As Worksheet
    Dim wksR        As Worksheet
    Dim rng         As Range

    Set wksHome = ThisWorkbook.Worksheets("Home")

    R = wksHome.Range("H1").Value

    If Application.ActiveSheet.Name = "Home" Then

        Set wksR = ThisWorkbook.Worksheets(R)
        wksR.Range("C7:J42").ClearContents

        Set rng = wksHome.Range("G8", wksHome.Range("G8").End(xlDown).Resize(, 4))
        wksR.Range("C7").Resize(rng.Rows.Count, rng.Columns.Count).Value = rng.Value

        Set rng = wksHome.Range("M8", wksHome.Range("M8").End(xlDown))
        '(...)

    End If

Artik