Copy Formula from Cell 200 of that column into deleted Cell - VB

[eli_m]

Hi - This site has helped me so much I thought I'd sign up and ask my own question and hopefully help others

My question:
What would be the VB code for when I delete data from a cell it then automatically copies the formula that's in cell 200 of that row into the newly deleted cell?

eg.

1. Delete data in cell A1
2. Formula from A200 gets put into cell A1

I also want it to work for all my columns which is A to AR.

Another example:

1. Delete data from F68
2. Formula from F200 populates into F68

Any help would be greatly appreciated!

Thank you in advance

 

[Peter_SSs]

Could it be that that cell, or some or all of column AH is formatted as a Date?

 

[eli_m]

Could it be that that cell, or some or all of column AH is formatted as a Date?

I think thats exactly it! I think sometimes I overwrite the cell with a Copy/Paste with another format.
These accidents will always happen so is there a way to adjust the code to account for this?

 

[Peter_SSs]

These accidents will always happen so is there a way to adjust the code to account for this?

This should stop the code from erroring in that circumstance (but it doesn't stop the circumstance of a large number being put into a date-formatted cell happening)

If IsEmpty(c.Value) Then Cells(200, c.Column).Copy Destination:=c
If Len(c.Text) = 0 Then Cells(200, c.Column).Copy Destination:=c

 

[eli_m]

This should stop the code from erroring in that circumstance (but it doesn't stop the circumstance of a large number being put into a date-formatted cell happening)

If IsEmpty(c.Value) Then Cells(200, c.Column).Copy Destination:=c
If Len(c.Text) = 0 Then Cells(200, c.Column).Copy Destination:=c

Thanks so much I will give it a go and report back if the other users of the spreadsheet receive anymore errors