RODENGINEER

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