macro to copy from one sheet and paste to another sheet defined by cell value

Hello, i have a macro that will print a specific worksheet based on the value of a cell in worsheet 1. I was curious as to how i would use the same general principal to copy a value from sheet 1 to the sheet specified by another cell value in sheet 1 to the next available row. Here is my printing macro:

Sub PrintSAT()

Dim sht As Worksheet


For Each sht In ThisWorkbook.Worksheets
If sht.Range("C5").Value = Sheet1.Range("B1") Then
sht.PrintOut
End If
Next sht


End Sub

In this workbook, the value in (Cell "B1" worksheet1) will always match "Cell C5" in the desired destination worksheet.

For example I would like to copy (sheet1 "Cell B4") and paste it into (next open row in "column I") of the worksheet that has a "C5" value equal to (Sheet1 "B1")'s value.

Any info would be greatly appreciated.

Thank you

Basically saying assume (sheet1 cell b1 ="236"). I need to copy (sheet1 cell b4) and paste to next open row in column i of the worsheet that has a value of "236" in cell c5

Hope that help ease some confusion...

or am i overthinking this. would it work to just use a string of conditional statements such as something like this?


if Sheets("sheet1").range("b1").value = "236" then
Sheets("Sheet1").Range("B4").Copy
Destination:=Sheets("Sheet2").Range("I" & Rows.Count).End(xlUp).Offset(1).Select

And so on and so forth for each of my 19 sheets?