Copy method copies the value in range A1 on worksheet assigned to variable wsOut to range A1 to G1 on worksheet assigned to variable wsInput.

Two worksheet variables are declared. 

lastCol variable holds the column number of the last non-empty cell with data in row 1 on the worksheet assigned to wsInput.

wsInput.Rows.Count returns the total number of rows on the worksheet assigned to wsInput.

datRange refers to the range from cell A2 to cell G lastRow on the worksheet assigned to wsInput, where lastRow is the row number of the last non-empty cell in column A.