Move data down a row after being entered

[rodels]

I have 7 columns. a;date, b;description, c;debit, d;A, e;M, f;credit, g;BLANK, h;balance.

I would like to setup an entry row (row 4) and have cells in that row from column a-f coloured yellow permanently.
Every entry has a date and description but column c,d,e,f will vary depending on whether it is a credit or a debit. So some cells will be left blank.

How can I keep the row 4 (a-f) coloured as well shift all data down a row once I have completed my entry?
I would like to shift data down once the enter button is hit and have the active cell return to 4A ready for the next data entry.

Is this possible?
Help with how to please.

[vcoolio]

Hello Rodels,

I'm not sure if I fully understand your request, but you could try the following code assigned to a button:

Option Explicit
Sub RodelsTest()

        Dim lr As Long: lr = Sheet1.Range("A" & Rows.Count).End(xlUp).Row + 1
        Dim sh As Worksheet: Set sh = Sheet1 '---->Or whatever your sheet name is.
        
Application.ScreenUpdating = False
    
        sh.Range("A4:F4").Interior.ColorIndex = 6
        sh.Rows(4).Insert
        sh.Range("A4:F4").Interior.ColorIndex = 6
        sh.Range("A5:H" & lr).Interior.ColorIndex = xlNone
    
Application.Goto sh.[A4]
Application.ScreenUpdating = True

End Sub

I'm assuming that you have headings in row3.

If it's not what you were looking for then please read the gold coloured banner at the top of this page which gives instructions on how to upload a sample workbook.

I hope that this helps.

Cheerio,
vcoolio.