if the cell formats etc are not important
wbS.Worksheets("WS2").Range("A7") = wbF.Worksheets("WS1").Range("D9")
wbS.Worksheets("WS2").Range("A8") = wbF.Worksheets("WS1").Range("D10")
wbS.Worksheets("WS3").Range("F12") = wbF.Worksheets("WS1").Range("K12")
wbS.Worksheets("WS2").Range("K4") = wbF.Worksheets("WS1").Range("R18")
wbS.Worksheets("WS3").Range("K4") = wbF.Worksheets("WS1").Range("R18")
for last blank row
wbS.Worksheets("WS2").Range("A65536").End(xlUp).Offset(1, 0) = wbF.Worksheets("WS1").Range("D9")
wbS.Worksheets("WS2").Range("A65536").End(xlUp).Offset(1, 0)
this is A7, if the last populated cell is A6; A8, if the last populated cell is A7...