PREPARANDO EL PRIMER ENCABEZADO

Estás preparando el encabezado de la tabla.

Esto te sirve para ir comprobando que tienes bien tu código.

Recuerda que no hay una única forma de dar una solución.

Sub preparar_encabezado()
'***DEFINICIÓN  DE VARIABLES****

Dim fila_inicio As Integer
Dim colum_inicio As Integer

fila_inicio = 10
colum_inicio = 1


'***LIMPIAMOS HOJA,borramos todo****

    Sheets("visualizador_PF").Columns("A:N").Clear
    
'***TÍTULOS Y  FORMATOS******

    With Sheets("visualizador_PF")
    
        .Cells(fila_inicio, colum_inicio).Value = "F"
        
        .Cells(fila_inicio, colum_inicio + 1).Value = "F"
        
        .Cells(fila_inicio, colum_inicio + 4).Value = "CÓDIGO"
        .Cells(fila_inicio, colum_inicio + 4).NumberFormat = "@"
        
        .Cells(fila_inicio, colum_inicio + 5).Value = "DESCRIPCIÓN"
        .Cells(fila_inicio, colum_inicio + 5).NumberFormat = "@"
        
        .Cells(fila_inicio, colum_inicio + 6).Value = "Stock alm1"
        .Cells(fila_inicio, colum_inicio + 7).Value = "Stock alm2"
        .Cells(fila_inicio, colum_inicio + 8).Value = "Stock alm3"
        .Cells(fila_inicio, colum_inicio + 10).Value = "Stock T."
        .Cells(fila_inicio, colum_inicio + 11).Value = "Duración Total"
        .Cells(fila_inicio, colum_inicio + 12).Value = "Rotación"
        .Cells(fila_inicio, colum_inicio + 13).Value = "Cant. Min."
        
        .Columns("G:N").NumberFormat = 0
        .Range(Cells(fila_inicio, colum_inicio + 4), Cells(fila_inicio, colum_inicio + 13)).Interior.Color = RGB(0, 176, 240)
        .Range(Cells(fila_inicio, colum_inicio + 4), Cells(fila_inicio, colum_inicio + 13)).Font.Color = RGB(255, 255, 255)
        
'***COLOCAMOS Y ORDENAMOS******


    End With

End Sub

Esta es una solución que resuelve el ejercicio; utilizando las herramientas que vas aprendiendo.