Copy/paste range and fill empty rows

[EvertRa]

Hi, I am trying to write a VBA code, but do not manage to figure out the solution for this.

A RPA tool is running and pasting in data into sheet1. This is always 8 columns, A:H. However, there will only be data in all columns in the first row. For the rest of the rows there will only be data in column A:D. The first part of the code I am trying to write is to copy the data in row 1, col E:H into all rows down to the last row.

Then the process needs to be repeated. It will now be new data in sheet1, and the VBA code needs to copy-paste this into the first free row in sheet 2.

The number of columns is static, but the number of rows in each range is dynamic.

Any good ideas on how to do this?

 

[rondeondo]

Hi EvertRa

I have a macro I use that will do this. it will need you to highlight the columns or add a selection statement

Sub fillDown()
'fill the gaps in a column with the value from the cell above when a cell is blank

    For Each cell In Selection.cells
        If Len(cell.value) = 0 Then
            cell.value = cell.Offset(-1, 0).value
        End If
    Next

End Sub

All this code does is run through the selected cells one at a time from the top and if the cell is empty copy the cell above.