Edit existing code from a specific cell to active cell

[ipbr21054]

Hi,
Not sure if my tital explains it correctly.
I was using a code that automatically cell P5 but now working on chaning the code.
In the code below you will see the offset code with then selects the cell in column P

Can you advise how i now edit the code to remove P5 to the cell in question as the cell will be anythingt now in column P

    With Sheets("DATABASE")
    cell.Select
    ActiveCell.Offset(0, 15).Select
    End With
        If Trim(destWS.Range("P5").Value) <> "" Then
      MsgBox ("THE CELL HAS A INVOICE NUMBER IN IT ALREADY"), vbCritical, "CELL P ISNT EMPTY MESSAGE"
      
    Call KILLINVOICE
          
    With Sheets("INV")
      Worksheets("DATABASE").Activate
      Worksheets("DATABASE").Range("P5").Select
    End With
    
    Exit Sub
    Else
      srcWS.Range("L4").Copy destWS.Range("P5")

    With destWS
      .Range("P5").Font.Size = 14
      .Activate
      .Range("P5").Select

 

[ranman256]

Activecell.value

 

[ipbr21054]

Hi,
I have changed the code to remove P5 to the advised but i now see the changed text in Red.

If Trim(destWS.Range("P5").Value) <> "" Then

TO

If Trim(destWS.Range) Active cell.value <> "" Then

AND

srcWS.Range("L4").Copy destWS.Range("P5")

TO

srcWS.Range("L4").Copy destWS.Range Activecell.value

 

[ipbr21054]

Any it advise please how I correctly fix the above.