Macro para copiar según nombre de hoja

No me queda claro cómo querés seleccionar la hoja pero podrías guardar el nombre de la hoja que señala la celda activa al comenzar la macro:

Sub ActualizarCuentas()
Dim cel As String
Application.ScreenUpdating = False

'la macro se ejecuta estando seleccionada la celda que indica el nombre de hoja

nbreHoja = activecell.value
Sheets(nbreHoja).Select
Range("A2:k65536").Select
Selection.ClearContents
Sheets("Total").Select
Range("B2").Select
Do While ActiveCell <> ""
If ActiveCell.Offset(0, -1).Value = nbreHoja Then

'sigue tu macro

Si esto resuelve tu consulta no olvides finalizarla.

Puede que no me haya explicado bien.En la hoja se incorpora nuevos registros cada semana, tras lo cual ejecuto la macro y pasa las celdas indicadas de cada registro a la hoja que corresponde, según el nombre que figura en cada fila de la columna B,(que corresponde con un nombre de hoja) pero tengo una macro muy larga, con las mismas instrucciones repetidas para cada nombre de la columna B.

¿Se puede abreviar la macro, tal vez haciendo una lista con los nombres de las hojas para que repita la macro con cada nombre, o con una variable que recorra los nombres?

No sé si esta vez me habré explicado bien.

Gracias por tu tiempo y por la ayuda que nos prestas.

Saludos

Bien, basándome en tu macro, le agregué un bucle que recorre la col M donde tendrás la lista de hojas.

Te dejé una línea opcional xq me parece que solo 1 vez encontrará la hoja y copiará el rango de las 10 filas, es decir que cuando realice esto ya puede terminar el bucle do y buscar otra hoja.

Si esto es correcto habilitá la línea del Exit do, sino dejá tal como está, pruébalo y si todo queda algo sin resolverse debieras enviarme copia de tu hoja Total que es la que se recorre.

Sub ActualizarCuentas()
Dim cel As String
Application.ScreenUpdating = False
'en col M de hoja Total se encuentra la lista de hojas
nro = 1

i=0
'repito el bucle hasta encontrar una celda vacía
While i = 0
nbrehoja = Sheets("Total").Range("M" & nro)
'si encuentra una celda vacía es el fin del proceso
If nbrehoja = "" Then i = 1: Exit Sub
'incremento en 1 el nro de fila en col M
nro = nro + 1
'selecciono la hoja buscada
Sheets(nbrehoja).Select
Range("A2:k65536").Select
Selection.ClearContents
Sheets("Total").Select
Range("B2").Select
Do While ActiveCell <> ""
If ActiveCell.Offset(0, -1).Value = nbrehoja Then
Range(ActiveCell, ActiveCell.Offset(0, 10)).Copy
ActiveCell.Offset(1, 0).Select
Sheets(nbrehoja).Select
ActiveCell.PasteSpecial
ActiveCell.Offset(1, 0).Select
Sheets("Total").Select
'Exit Do 'opcional: salir si ya copió el rango
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
'repito para la siguiente hoja de la col M
Wend