VBA copy active row and paste in the same worksheet

[titoexcel]

I would like to copy the active row and paste it right below (in the same worksheet) with columns "D" through "P" being null or just copy columns (A,B,C and the rest blank, but this is a table. I tried with my vba but i get an error that I can not do it in a table, but I see others doing it. This seems fairly simple but my brain is frozen.
worksheet name: "Outlook"

I also have a vlookup in column B on "Outlook" spreadsheet that is looking up against "ERPHeadCount" worksheet. Not sure if it can be copied or if we have to manually enter the formula everytime.

vlookup being used =VLOOKUP([@Resource],Table2,7,FALSE). Please help if you can.

This is my code below but it would not allow to add in the middle of the spreadsheet only on the last record.

Sub CopyConcatenate()
Dim ws As Worksheet
Dim rng As Range


Set ws = ThisWorkbook.Sheets("Outlook")


With ws

Set rng = .Rows(ActiveCell.Row)



rng.Copy



rng.Offset(1).Insert Shift:=xlDown


Application.CutCopyMode = False
End With
End Sub

 

[titoexcel]

Sub btest()ActiveCell.EntireRow.Select
Selection.Copy
Selection.Offset(1).Insert
Selection.Offset(1).Select
End Sub

I tried this above and i still get an error that I can't modify a table. If anyone can please help i would greatly appreciate it.