Range.Find to find column and place value in next available cell in one line

I wanted to use this to both find a column and place a value in the next available row in that column in a single step. It won't work when the next available row is row 2. Is there another way to do this in one line?

Sheets("HomeScreen").Rows(1).Find(.Cells(j, 1).Value).End(xlDown).Offset(1, 0).Value =...

Thanks
Dave