Sigue las Instrucciones para poner la macro en worksheet
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
4. Del lado derecho copia la macro
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.DAM
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Count > 8 Then Exit Sub
Application.ScreenUpdating = False
ActiveSheet.Unprotect "123"
For Each c In Target
If c.Value = "" Then Exit For
Application.EnableEvents = False
ActiveSheet.ListObjects("Tabla10").Resize Range("A6:H" & c.Row)
Application.EnableEvents = True
Next
ActiveSheet.Protect "123", DrawingObjects:=False, Contents:=True, _
Scenarios:=False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, _
AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _
AllowDeletingColumns:=True, AllowDeletingRows:=True, _
AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
Application.ScreenUpdating = False
End If
End Sub
Saludos. Dante Amor
No olvides finalizar la pregunta.