Macro with conditions

Hello, I need to execute this macro but applying the following:

- If the last cell in column P of sheet1 is "Woman"

- If the last cell of column P of sheet1 is "Woman", add the number 7 on sheet 2 in the last cell of column Z

Thanks for the help

Sub Copiar()
With Sheets("Hoja1")
.Range("A2:E" & .Cells(Rows.Count, 1).End(xlUp).Row).Copy _
Destination:=Sheets("Hoja2").Range("A" & Sheets("Hoja2").Cells(Rows.Count, 1).End(xlUp).Row + 1)
Range("A1").Select
End With
End Sub

The macros are fine, just one thing, that I did not know how to explain well in the first post: the value 7,
which I want to enter in sheet2, is being copied in row 1 of sheet 2 in column Z. and what I want is to copy it at the same level
as the last occupied row of the PP column of sheet1. In the attachment it is clearer