Finding Empty Cell And Using That Row For All Other Values

I am trying to write a macro that looks for the first empty cell in column G, Then once that cell if found, assigns that row to be the row that other data is copied and pasted to. My code currently just finds the first empty cell in each column and copies and pastes the data and am not sure how to get it to what i need it to do.

Code:
Sub seconddatatransfer()
Dim wb1 As Workbook, wb2 As Workbook, sh1 As Worksheet, sh2 As Worksheet
Set wb1 = Workbooks("filestransfer.xlsm") 'Edit file extension
Set wb2 = Workbooks("KBCG.xlsm") 'Edit file extension
Set sh1 = wb1.ActiveSheet
Set sh2 = wb2.Sheets("Tracking Sheet")
sh2.Cells(Rows.Count, 2).End(xlUp)(2).Value = sh1.Range("B6").Value 'left

[code]....