How to use "AND" after THEN statement

[Eyeson15]

I have been using this below code.
It basically copies the value from cell H5 everytime it changes to the first empty cell in column N.
The problem is I need to copy H5 and I5 when H5 changes.
I have tried adding AND like this:

...Then sh.Range("N" & Range("N" & Rows.Count).End(xlUp).Row + 1).Value = sh.Range("H5") And sh.Range("O" & Range("O" & Rows.Count).End(xlUp).Row + 1).Value = sh.Range("I5")

this doesnt work.? Can anyone please enlighten me?

Sub Update(ByVal sh As Object)

    On Error GoTo exitsub
    Application.EnableEvents = False
    Sheets("Focus").Range("R1").Formula = "=$H$5"
    
    If (sh.Range("N" & Range("N" & Rows.Count).End(xlUp).Row).Value <> sh.Range("H5") And sh.Range("H5").Value <> "") Then sh.Range("N" & Range("N" & Rows.Count).End(xlUp).Row + 1).Value = sh.Range("H5")
    
exitsub:

    Application.EnableEvents = True
    
End Sub

James

 

[nemmi69]

where are you copying I5 to?

 

[Eyeson15]

Hi there
The first empty cell in column N.
So when H5 changes, H5 goes to empty cell in column N while I5 goes to empty cell in column O

 

[Norie]

Try this.

sh.Range("N" & Range("N" & Rows.Count).End(xlUp).Row + 1).Resize,2).Value = sh.Range("H5").Resize(,2).Value

 

[Eyeson15]

Hi there
Compile error:
Expected: end of statement

 

[BarryL]

Do you mean something like:

 If (sh.Range("N" & Range("N" & Rows.Count).End(xlUp).Row).Value <> sh.Range("H5") And sh.Range("H5").Value <> "") Then
sh.Range("N" & Range("N" & Rows.Count).End(xlUp).Row + 1).Value = sh.Range("H5") 
sh.Range("O" & Range("O" & Rows.Count).End(xlUp).Row + 1).Value = sh.Range("I5")
End If

 

[Norie]

Try this.

sh.Range("N" & Rows.Count).End(xlUp).Offset(1).Resize(, 2).Value = sh.Range("H5").Resize(, 2).Value

 

[Eyeson15]

Thank you Barry and Norie
Both worked PERFECTLY. So simple..!
Saved me alot of headache. I will think about you both before I sleep tonight.