Matt

Thanks for the code which works exactly as it should

However I didn't mention (!) that I have formulas on sheet 2 which are on the same rows that I need the values from sheet 1 to go into

So my code is as follows ie checking in column G ..

Sub CopyToNextBlankRow()
Dim WS1 As Worksheet, WS2 As Worksheet, rw As Long
Set WS1 = Sheets("Single Item Check")
Set WS2 = Sheets("Ebay Fee _ Sales Calculator")
rw = WS2.Cells.Find("*", WS2.Range("g65536").End(xlUp), LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
WS2.Range("E" & rw & ":G" & rw) = WS1.Range("A3:c3").Value

Does what I need

Thanks again for your help

Mark