[VBA excel]

ola galera sou novo aqui,

preciso de ajuda com um cogido que estou desenvolvendo.

 

quero a partir de uma planilha preencher uma tabela, porem quando coloco para rodar os valores estão se sobrepondo.

Sub MarcarAplicavel()

Dim i As Integer
Dim j As Integer
Dim k As Integer

i = 4
j = 7
k = 2

                   For k = 2 To 500
                   If Cells(i, j).Value = "" And Cells(k, 1).Value = "x" Then
            
            For i = 4 To 17
            For j = 7 To 16
            
            Cells(i, j).Value = Cells(k, 4).Value
            Next j
            Next i
               
            End If
            Next k
           
End Sub