Private Sub CommandButton1_Click()
Dim black_col As Integer, blue_col As Integer
black_col = Sheets("sheet2").Range("A65536").End(xlUp).Row + 1
blue_col = Sheets("sheet2").Range("B65536").End(xlUp).Row + 1
test = InputBox("Is this a black or a blue file?" & Chr(10) & "Please type black or blue." & Chr(10) & "Please use lowercase only.", "FILE TYPE CHECK")
If test = "black" Then
Sheets("sheet2").Range("A" & black_col).Value = ActiveCell.Value
Else
Sheets("sheet2").Range("B" & blue_col).Value = ActiveCell.Value
End If
End Sub