Private Sub Worksheet_Change(ByVal Target As Range)
Dim bookName As String, authorName As String
Dim strStartColumn As String, strEndColumn As String
Dim intStartRow As Integer, intEndRow As Integer
Dim intRow As Integer
bookName = Range("G2")
authorName = Range("G3")
strStartColumn...