Issue With Inserting Blank Cells when I Shift Cells Down One

[bradlydraper]

Currently, I have a code that looks something like this, though I can't post the code itself since it's on a work computer

Sheets("Sheet1").[D2].Offset(1).Insert Shift:=xlDown
Sheets("Sheet1").[D2] = TextBox1.Value

etc

So what that does is pushes my all the cells in column "D", excluding D1, down one row. I have this code assigned to a total of 4 different command buttons, each one writing their own complicated textbox value sentences.

The issue that I'm having is occasionally, and randomly (I honestly can't find a trend to the error), it will blank out the cell D2 and push it down as a blank cell, and push everything else out normally.

For example, I'll have 20 Rows full of text, then I'll click the same command button again (or a different one) and it will randomly push down a blank cell rather than the cell that had text in it. I've tried changing simple formatting, adding

CopyOrigin:=xlFormatFromLeftOrAbove

amongst many other things, but nothing really seems to be working and i'll still randomly push down a blank cell in Column D.

Any help is much appreciated, thank you

 

[bradlydraper]

Correction, it never inserts the blank cell while I keep the userform open and switch pages, it only happens randomly when I reopen it and when I hit the command button the first time to write the data again to D2.

Other than reopening it and doing it for the first time and it (randomly) inserts and pushes down the blank cell, this code has absolutely no issues.

 

[JoeMo]

I doubt that's happening randomly. More likely it happens when there is nothing in TextBox1 (TextBox1.Value = ""), as it should, since your second line then returns "" to D2.

 

[bradlydraper]

It's not blank textboxes. It makes the cell blank then pushes it down. It doesn't push D2 down then push a blank, it makes D2 blank then pushes that, so the data gets erased.It honestly is random from what I can tell. I do the exact same process with opening the userform, and sometimes it blanks the cell and pushes it down, sometimes it doesn't.

I appreciate the recommendation, though