Dynamic offset range copy/paste

I need to program Excel with VBA to do next:
check a cell in the row
if the cell is an integer
select offset cells just under the reference cell
copy them
and paste values in another place/sheet
go back to the next cell in the first row for being integer...

thanks