VBA Transfer New data from a sheet to another sheet

Hi All,

I'm still fairly new to VBA and this forum has been more than useful in the past but I was unable to find anything threads like a need.

Here is what I am going for:

In one spreadsheet I have a list of 250 of companies, where I can hopefully enter an expected loss in Column I (but only select companies, it will vary every time I use the spreadsheet)

After I enter the expected losses. I'm hoping to pull the information to another sheet that will give me a running list of the losses that I have sorted by the date entered. (If you can't tell I work in Insurance)

I'm hoping to do this all with a command button.

Thanks for any help in Advance!

Something along the lines of this. So when I click the Save Losses button it will pull only the losses that I have entered and put them into sheet2 in the next open cell.VBA Help.PNG

Here is the final solution I came up with:

Sub Macro2()

Application.ScreenUpdating = False

Dim copySheet As Worksheet
Dim pasteSheet As Worksheet

Set copySheet = Worksheets("Loss Input")
Set pasteSheet = Worksheets("Storm History")

Set rng = Range("I2:I300")
rng.SpecialCells(xlCellTypeConstants).EntireRow.Select
Selection.Copy

pasteSheet.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues



Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub