shift to right cell

[vmjan02]

I have this code below, but not sure as why it is giving an error

If ws.Range("C" & lastrow).Offset(0, 24).Value <> "" Then
ws.Range("C" & lastrow).Offset(0, 24).Select
ActiveCell.Insert (xlShiftToRight) --- (insert method of range class failed)
ws.Range("C" & lastrow).Offset(0, 24).Value = Date & Chr(10) & Me.TextBox13.Value
End If

 

[baitmaster]

It looks to me like you can simplify how you're referring to your range objects, both in terms of identifying them and also not selecting them (which is unnecessary). That may solve your issue
untested code:

with ws.cells(lastrow,27)
    If .Value <> "" Then
        .Insert (xlShiftToRight)
        .Value = Date & Chr(10) & Me.TextBox13.Value
    End If
end with

if you still get the error, there could be external influences - have you tried performing the task manually? Do you get an error something like "unable to perform action, objects will be shifted off the worksheet"?

 

[vmjan02]

.Insert (xlshifttoright) is again giving the same error.
I think it is due to autofilter,
As my code does the autofilter and then need to shift right.